han a 4 


on + 


a TFT ee PA un u m m ck nu eu N 
# eh fr y be 4 4 A 5 4 SA Be m 















6 Mr la Y My. 4 

. . rn 3, 

7 A ı 

( ANSESKT FE j 

Commodord 64: 

n ’ h © 
B - 

zen . “. D Fr 7 

-L [7% 

Te 

\ a q tıka 
‘ Ba73 f u 5 


‚VC-20: 
BBEINT: 
Roulette 

3 Musikprogranime 


i 
WAGIE , 
NEIL 

Orion 

m 

" Spectrum: 

{Grafik Generator 
“Oma plätschert luktig 
‘ ın der Badewanne 








M 


N 
TI-99: 
Raumschiff Enterprige 
Catch N’Gogo 


' Apple II: 
- Spider 
-Wallstreet 


Dragon 32: 
Fireball 

„ Froghopper 
CBM: 


Munchman 


eYaul: 
Basic # Basic 











A EEE 0 74ABREERE EEE 





Alles, was Sie schon immer über 


Ihren COMMODORE wissen wollten! 


Maschinen- 
sprache 














Eine leicht ver- 
ständliche Einfüh- 
rung In das 
Programmieren des 
C-64 In Maschinen- 
sprache und 
Assembler 
Komplett mit vielen 
Beispielen sowie 
einem Assembler, 
Disassembler und 
einem Einzelschritt- 
Simulator Und 
natürlich zuge- 


Endlich ein umfang- 
reiches Trainings- 
handbuch, das 
Ihnen detailliert den 
Umgang mit 
SIMON's BASIC 
erklärt Ausführliche 
Darstellung aller 
Befehle und ihrer 
Anwendung 
Zahlreiche Beispiel 
programme un 
Programmiertricks 
Dieses Buch sollte 


jeder SIMON’s schnitten aufihren 
BASIC Anwender Computer, den 
haben! COMMODORE 84. 


ca 300S,DM 49,- ca. 200 S., DM 39,- 


Gute Soft 
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64 TIPS & TRICKS ist 
eine echte Fund- 
grube für jeden 
COMMODORE 64 
Anwender. Umfang- 
reiche Sammlung 
von POKE's und 
anderen nützlichen 
Routinen, BASIC- 
Erweiterungen, 
Graphik und Farbe 
für Fortgeschrittene, 
CP/M, Multitasking, 
mehr über Anschluß- 
und Erweiterungs- 
möglichkeiten und 
zahlreiche lauffertige 
Programme. 

ca. 290 S.;DM49,- 


64 INTERN erklärt 
detailliert Technik 
und Betriebssystem 
des C-64 und die 
Programmierung von 
Sound und Graphik. 
Ausführlich doku- 
mentiertes ROM- 
Listing, zahlreiche 
lauffertige Beispiel- 
programme und 2 
Original-Schaltpläne 
zum Ausklappen. 
Dieses Buch sollte 
jeder 64-Anwender 
und Interessent 
haben 

ca. 320 S.; DM 69. - 


ware muß nicht teuer sein. 


Die neuen DATA BECKER PROGRAMME -S 


KM Dam nECcKua BUCH 


64 FÜR PROFIS 
zeigt, wie man erfolg- 
reich Anwendungs- 
robleme In BASIC 
öst und verrät 
Erfolgsgeheimnisse 
der Programmier- 
profis, 5 komplett 
beschriebene, lauf- 
fertige Anwendungs- 
programme (z.B. 
Adreßverwaltung) 
Illustrieren den Inhalt 
der einzelnen Kapitel 
beispielhaft Mit 
diesem Buch lernen 


1} 


DAS GROSSE 
FLOPPY-BUCH erklärt 
detailliert die Arbeit 
mit der Floppy 
VC-1541, von der 
sequentiellen Daten- 
speicherung bis 

zum Direktzugriff, für 
Anfänger, Fort- 
geschrittene und 
Profis. Ausführlich 
dokumeniiertes 
DOS-Listing, zahl- 
reiche laufferlige 
Beispiel- und 
Hilfsprogramme, z.B. 


Um DATA BECKER CH 





VC-20 INTERN ist für 
jeden interessanı, 
der sich näher mit 
Technik und Maschli- 
nenprogrammierung 
des VC-20 auseinan- 
dersetzen möchte 
Detaillierte tech- 
nische Beschreibung 
des VC-20, ausführ- 
liches ROM-Listing, 
Einführung in die 
Maschinenprogram- 
mierung und 3 Origi- 
nal-Schaltpläne. 

ca 230S;DM49- 
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VC-20 TIPS & TRICKS 
Ist eine echte Fund- 
grube für jeden 
VC-20 Anwender. 
Sound und Graphik 
Programmierung, 
Speicherbelegung 
und Speichererwei- 
terung, BASIC-Erwei- 
terungen, POKE's 
und andere nützliche 
Routinen, zahlreiche 
lauffertige Beispiel- 
und Anwendungs- 
programme und 
vieles andere mehr 


Disk Editor und Haus- 
haltsbuchführung 
ca. 320 S.; DM 49,- 


Sie gute und erfolg- 
reiche BASIC- 
Programmierung 
ca 220S,DM49- 


unglaublich niedrigen Preisen. Drei aktuelle Beispiele: 


SUPERGRAPHIC 64 


Die neueste Version unserer belieb- 
ten SUPERGRAPHIC enthält jetzt 
über 30(!) Befehle zur Ausnutzung 
der fantastischen Möglichkeiten, die 
der 64 mit hochauflösender Graphik 
und Farbe bietet. Mit SUPERGRA- 
PHIK 64 können Sie Punkte, Linien 
und Kreise ziehen. SPRITES definie- 
ren und manipulieren, Farben setzen, 
komplette Graphikbildschirme auf 
Diskette abspeichern bzw. laden und 
vieles andere mehr. Ergänzt wurde 
die SUPERGRAPHIK 64 zusätzlich um 
SUPERSOUND, eine neue Befehls- 
erweiterung zur Nutzung der hervor- 
ragenden Soundmöglichkeiten des 
64 und der Farb-Hardcopy auf dem 
neuen SEIKO GP 700A. Mit SUPER- 
GRAPHIK 64 machen Sie mehr aus 
Ihrem 64er, und das fürnur DM 99,-. 


PASCAL 64 


Jetzt können Sie die beliebte 
Sprache PASCAL auch aufdem 
COMMODORE 64 einsetzen. 
PASCAL 64 ist ein leistungsfähiger 
PASCAL-Compiler, der nicht nur den 
Befehlssatz des Standard PASCAL 
unterstützt, sondern auch die 
hochauflösende Graphik und die 
Sprites des COMMODORE 864, Ein-/ 
Ausgabe über Diskette und Drucker 
sowie REAL und INTEGER Arithmetik. 
Unterprogramme aus Ihrer eigenen 
Programmbibliothek können vordem 
Compilieren in Ihr Hauptprogramm 
mit eingebunden werden. PASCAL 64 
ist sehrschnell, da echter Maschinen- 
code erzeugt wird und kostet 
komplett mit ausführlichem Hand- 
buch nurDM 99. -. 


ca 230 5S:DM 49 - 


rn 


Pitzensoftware auf Diskette mit ausführlichem Handbuch zu 


SYNTHIMAT 


Mit diesem Superprogramm verwan- 
deln Sie Ihren 64er in einen profes- 
sionellen, polyphonen, dreistimmigen 
Synthesizer, mit dem Sie über die 
Tastatur ganze Akkorde spielen kön- 
nen. Zu den unglaublich vielen Mög- 
lichkeiten dieses Programms gehört 
auch die Bandaufnahme/-wieder- 
gabe direkt auf bzw. von Diskette. 
SYNTHIMAT stellt gleichzeitig den 
Synthesizer optisch dar. Sämtliche 
Module sind farblich gekennzeichnet 
und übersichtlich angeordnet. Es ist 
ein Leichtes, mit SYNTHIMAT sämt- 
liche Klangeigenschaften verschie- 
dener Musikinstrumente zu imitieren, 
aberauch völlig neue Klangkreationen 
zu schaffen, selbst Weltraumklänge 
Verwandeln Sie Ihren 64er für wenig 
Geld in eine Super-Musikmaschine 
mit SYNTHIMAT. Komplett mit aus- 
führlichem Handbuch nur DM 99,-. 





Weitere DATA BECKER PROGRAMME: Das rechnende Textverarbeitungsprogramm TEXTOMAT, die Sofortfakturierung 
FAKTUMAT, die Einnahme-/Überschußrechnung KONTOMAT, das Synthesizerprogramm SYNTHIMAT. die Graphikerweiterung 
SUPERGRAPHIK und der Diskettenmonitor DISKOMAT Jewells nur DM 99,- inkl. ausführlichem Handbuch. 























Unser 84 (!) seitiger Spezialkatalog mit detaillierten Informationen über COMMODORE 64, VC-20 und den neuen 
COMMODORE EXECUTIVE, mit der großen Druckerauswahl vom kleinen Listingdrucker über Vierfarbplotter und 
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Programmiertips 
für den ZX-81 


Diese 4 kurzen Maschinenprogramm-Routinen, 
senden Scroll des Bildschirminhaltes 

sen sich mühelos in andere Programme 
des ’Print’ Statment mit ’AT’ 
MC-Aufruf geändert werden. 


erzeugen auf dem ZX-81 einen flies- 
in 4 Richtungen. Diese MC-Programme las- 
unterbringen, Voraussetzung dafür ist, das je- 
geschrieben worden ist!! Andernfalls muß dies vor dem 





Um eins von diesen Programmen laden 
zu können, geben Sie zuerst folgendes 
ein: 

| REM --Min.30 Zeichen 
Danach tippen Sie dieses 
Ladeprogramm ein: 

I0 PRINT "Letzte MC-Adresse?”: 
20 INPUT Adresse 

30 PRINT Adresse 

40 FOR A=16514 to Adresse 

50 SCROLL 

60 PRINT "Adresse-";A;” INHALT-”: 
70 INPUT B 

80 PRINT B 

90 POKE A,B 


MC- 


100 SCROLL 
110 NEXT A 
Sie können jetzt, nach dem Start, mit 
RUN die Zahlen sorgfältig eingeben! 
Es ist auch möglich, alle 4 Programme 
einzutasten, jedoch verschieben sich 
die Startadressen der einzelnen Scroll- 
Funktionen! Die MC-Routine wird 
mit 

RAND USR 16514 
aufgerufen! 
Das ZX-SCROLL sollte man nicht ein- 
geben, da das System abstürzen 
könnte! 
Scroll nach oben 


42,12,64,93,84,19,1,34,0,9,1,192.2,237, 
176,201 

Scroll nach unten 
0,0,42,12,64,1,181,2,9,34,130,64,1.33,0,9, 
84,93,42,130,64,1,181,2,237,184.201 
Scroll nach rechts 
42,12,64,35,84,93,35,62,24,1,31,0.237,176, 
245,151,18,19,35,19,35,241,61.32.240.201 
Scroll nach links 
42,16,64,43,43,84,93,43,62.24,1,31.0, 
237,184,245,151,18,43,43.27,27,241, 
61,32,240,201 

Die oben abgebildete MC-Lade-Rou- 
tine kann für jedes Maschinenpro- 
gramm eingesetzt werden!! 
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COMMODORE 64 





Spectrum Hardware Manual 
von Adrian Dickens 


Der Sinclair ZX-Spectrum hat die Computerwelt 
revolutioniert 

Dieses Buch erklärt das Geheimnis seines 
Erfoiges und wie das Gerät arbeitel. Viele 
Aspekte, die das offizielle Manual nicht oder nur 
kurz streift, werden Ihnen hier ausführlich 
vorgestellt Wie die Farben Ihres TV-Monitors 
optimal eingestellt werden können, wie der 
Interne Lautsprecher durch einen anderen ersetzt 
wird und vieles mehr 

Dazu wird gezeigt, wie der Spectrum mil 
zusätzlicher (auch selbstgebauter) Hardware 


aufzurüsten Ist DM 29, 80 





VC-20 Innovative Computing 


von CiiHord Namshaw 


Ein Buch, geschrieben von einem der krealivsten 
Programmierer in der Microcomputer-Well! 

Spannende, interessante Spiele wie Nuclaer 
Attack, Space Fight, Hopper, Invasion, Squash, 
Golf, Grand Prix, Adventure, und sogar Schach! 
Komplette Listings all dieser und weiterer Spiele, 
leicht verständlich mit vielen Tips und Tricks 
angereichert, eröffnen Ihnen neue Dimensionen 
Ihres VC-20. 


DM 29,80 


COMMODORE 64 Games Book 


von Clilord und Mark Ramshaw 


der Computer- 


Erleben Sie die Fascination 
Technik! 

Die Brüder Ramshaw gelten in England als die 
Nummer 1 in Sachen Commodore programmie- 
ren und dieses Buch wurde von der Fachpresse 
als eines der besten für den CBM 64 gelobt 
Jedes der hier vorgestellten Programme macht 
hervorragenden Gebrauch von den Fähigkeiten 
die den Commodore 64 gegenüber anderen 
Geräten seiner Preisklasse auszeichnen 

Kein Commodore-64-Anwender sollte dieses 


Buch in seiner Sammlung missen 


DM 29,80 
er 









80 
29,7. 


Over the Spectrum 


von Alfred Miigrom 


Ein Buch, das alle Wünsche von Spectrum-Fans 
erfüllt 

Komplette Listings von mehr als 30 Programmen, 
die zeigen, was in dem kleinen schwarzen Kasten 
an Kraft und Raftinesse steckt! 

Die Palette reicht von Geschicklichkeitsspielen 
wie Frogger, Meteor Storm, Eliminator über 
Strategie-Spiele wie Schach zu echten Adven- 
tures 

Nützliche Winke und Tips, sowie Geschäftspro- 
gramme machen dieses Buch 


Nachschlagewerk für jeden Spectrum-Anwender 
DM 39,80 
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ENTER THE DRAGON 


von Colin Carter 


Fine Sammlung krealıver Programme für der 
Dragon 32. Das Buch enthält kompletie Listings 
für viele der bekannten Arcade- und Abenteuer- 
Spiele wie Lunar Länder, Invaders, Meteor Storm 


3-D-Treasure Hunt, Flightsimulalor und viele 
andere 

Viele Programme nutzen die 
Möglichkeiten der Dragon Highresolutiongrafik 
Enter The Dragon zeigt Ihnen sogar, wie Sie 
Ihrem Drachen das Sprechen beibringen können 
Dazu eine Menge Tips und Informationen, die Iür 
den Beginner ebenso nützlich sınd, wie für der 


Fortgeschrittenen DM 28, 80 


hervorragenden 


Ey 


The Complete Spectrum ROM Disassembly | 


von Dr. lan Logan und Dr. Frank 0’Hara 


Der ZX-Spectrum wird von seinem eingebauten 
16-K-ROM gesteuert 

Die beiden Autoren erläutern Ihnen den 
Interpreter und zeigen Ihnen, was der Spectrum 
tut und was dabei in Ihm vorgeht 

Im Detail: Befehlsroutinen, Lautsprecher, Input / 
Output, Varlable und mathematische Funktionen 
Ihr Spectrum besitzt eine große Anzahl von 
eingebauten Funktionen. Dieses Buch hilft Ihnen 


sie zum eigenen Nutzen zu verstehen und sie in 


eigenen Programmen sinnvoll einzusetzen 
Ein Muß für alle engagierten Specirum- 
Programmierer! 


RBB Rnnnnnnnm 


nun nun nun nn 


“. 0 GmmEEED 2% 





Not only 30 Pepnns for the ZX-B1 IK 


von Melbourne House Publishers 
Battleships, Roulette, Blackjack, Starwars, 
Breakout, Memory, Miniadventure, 1 K-Draughts, 


Doch nicht nur 30 Programme für den ZX-B1 in 
der Grundversion enthält dieses einmalige Buch 
Jedes Programm wird erklärt, Programmiertips 
werden gegeben und viele Peeks und Pokes 
erläutert 

Ein Buch, das zeigt, was in 1 K stecken kann! 


DM 29,80 


DM 39,80 
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Meteoric Programming for the ORIG 1 


von John van der Reyden 


Viel Software für wenig Geld bietet Ihnen dieses 
Buch 

30 speziell für den ORIC 1 entwickelte 
Programme: z.B. Luna Lander, Eliminator. Sea 
Copter und viele mehr, die Ihnen zeigen, welche 
Farben, Grafiken und welch herrlichen Sound der 
ORIC produzieren kann 

Selbsverständlich fehlen auch praktische Tips 
nicht, die für alte Hasen ebenso interessant sind 
wie für junge Füchse! 

Eine ideale Ergänzung dieses Computers! 


DM 29,80 
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Das Virgin Gomputerbücher-Programm 
ames for your VIG-20 (VG-20) 
Games for your Dragon 32 
Games for your TRS 80 
Games for your ORIG 1 
Games for your ZX-B1 
Games for your ZX Spectrum 
Games for your Atari 
Games for your BBG Micro 


Bücher, die mehr aus Ihrem Computer machen! 
Jedes einzelne Buch enthält mehr als 20 komplette, spielfertige 
Programmlistings für den betreffenden Computer. 


Alle Programme werden erläutert und sind mit 
Bedienungsanleitungen versehen. 


Ein Computerlexikon, das alle wichtigen Begriffe aus der 


Computerterminologie enthält, vervollständigt den Inhalt 
jedes Buches dieser Reihe. 


jedes Buch nur DM 19,80 
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Bestellungen Inland: 


Gegen Einsendung eines Schecks oder 
Vorauszahlung auf unser Konto bei der 
Kreissparkasse Eschwege. 
Bankleitzahl 522 500 30 

Kto.-Nr. 45 22 934 

senden wir Ihnen die gewünschten Pro- 
gramme schnellstmöglich zu. 


Bestellungen Ausland: 


Nur Vorauskasse, Schein (Kassette 10,- 
DM, Diskette 20,- DM). Keine Schecks 
oder Überweisungen! 


Lieferung noch nicht erhalten? 


Bei Überweisung aufunser Kontokann 
es bis zu2 Wochen dauern, bis wir Ihre 
Bestellung in Händen haben. 

Oft passiert es, daß auf der Überwei- 
sungsdurchschrift weder Name, noch 
Ort, noch Art der Bestellung zu er- 
kennen sind. Schreiben Sie uns! (An- 
rufe kosten viel Geld und bringen, weil 
dann Schriftvergleiche nicht möglich 
sind, kein Ergebnis)! Astro 


Wenn esbei uns besonders hektisch zu- 
geht, dann kann es schon mal pas- 
sieren, daß es mit der Lieferung etwas 
länger dauert. Vergessen Sie bitte nicht: 
Der Kassettenservice ist ein zusätz- 
licher Service von uns, der Ihnen, dem 
Leser, Tipparbeiten ersparen soll (Sie 
kennen den Versuch einer anderen 
Zeitschrift, dieses per Lichtgriffel zu 
ermöglichen). Wir tun unser möglich- 
stes. Aber Pannen sind nie ausge- 


schlossen. 
Bitte haben Sie in solchen Fällen Ver- 
ständnis. 
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Herzlichen Glückwunsch zu Ihrer wirklich 
guten Zeitschrift. Ich gehöre von Anfang an zu 
Ihrem Leserkreis. Früher besaß ich nurden ZX- 
81, jetzt habe ich mir auch den SPECTRUM 
zugelegt. Logisch, daß mich am meisten Ihre 
Spektrum-Programme interessieren. Meine 
Englischkenntnisse sind begrenzt und mit ei- 
nem mir vorliegenden Handbuch, ist nicht viel 
Staat zu machen. So ist es mir bis heute noch 
nicht gelungen, richtig in die Geheimnisse der 
Sonderzeichen einzudringen, Sie druckten im 
Heft 6 das Frogger-Programm ab. Ich gab es 
ein, aber die Sonderzeichen wurden nicht Malz 
sen. Trotz mehrmaligem Durchschauen, konnte 
ich keinen Eintippfehler entdecken. Ich wartete 
auf Heft 7, und damit auf eine eventuelle Be- 
richtigung. Es kam aber keine,’ stattdessen ein 
neues Programm - Mampfman - und wieder 
taucht bei mir dasselbe Problem auf. Ich weiß 
nun nicht, ob der Fehler bei mir, oder im Pro- 
grammliegt, Bei Durchsicht von entsprechender 
Literatur, wird jeweils anders vorgegangen. Ich 
wäre Ihnen dankbar, wenn Sie mir mitteilen 
würden, ob der Fehler bei mir, oder im Pro- 
gramm liegt. 


F.-J. Grünen, WEITE 


Redaktion: Bezüglich Ihrer Frage zum 
Frogger-Programm aus Helt 6: In den Zeilen 
YO bıs 9600, werden dieentsprechenden Gra- 
likzeichen,. Frosch. Schildkröten. Bäume. 
Autos, erzeugt. Aufdie gleiche Art und Weise. 
werden Umlaute, zusätzlich zum normalen 
Zeichensatz, eingefügt. Durch Vergleich der 
Datas und .derin den anhängenden REM sbe- 
lindlichen Zeichen, können Sie durch ein- 
lache Schlußfolgerung. hinter das Geheimnis 
der Zeichensatzprogrammmierung. des ZX 
Spectrum, kommen. Im weiteren Programm 
auftauchende grafische Zeichen, müssen mil 
len entsprechenden Buchstaben, von der Ta- 
statur, eingegeben werden 


Ich habe folgende Frage an Sie: Wie kann man 
Programme, die auf 8 K geschrieben wurden, 
auf 16 K umschreiben, ohne die Pokes zu än- 
dern? Ausserdem möchte ich Sie fragen „ wie 
man selber Zeichen für den VC-20 definieren 


kann (bin Anfänger!) 
P. Rebmann, 


2 Zu Ihrer ersten Frage: Bei diesen 
| euch muß man nichts umschreiben, 
es sei denn, daß ee ver- 
| in er 
\erbereic nicht funktionstüc tig sin 
.- I a remnun 3 und 
en wir die Programme Disassembler und 
mb Frage beschäfi u di sich ausführlich 
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Zum Programm, Vokabeltraining Sur II 99 
4A, habe ich für Disketten Stationsbesitzer, fol 
sende Änderungen vorgenomme N: 

305 DISPL. AYAT (2,1) BE E P: '"WELCHES 
VOKABELPROGRAMM? 

506 ACCEPT AT (3,1) VALI 
DATE(UALPHA): WOS SW OPEN / ] 
"DSK1."&WOS, OUTPUT, INTERNAL, 
FIXED 64 

8 = Dollarzeichen, # = Numme rzeichen 
wos ermöglicht mir die eingegebenen 30 
Vokabeln unter einem bestimmten Namen (bis 
zu 10 Buchstaben) abzuspeichern. 


W. Bürger, Velbert 


Betrift: Programm Mampfmann aus Ho- 
mecomputer Juli/83 

Um Speicherplatz zu sparen, sollte man die 
Überschrift in eine Gosub-Routine bringen, 
ebenso die PAUSE 5000 mit Print AT 210; 
"Drücken Sie eine Taste, 

Einfügung eines Textes zur Erleichterung 
eines Spieles: 

201 PRINT Mampfmann 

202 PRINT, ,„ Geben Sie gleich die Tasten ein, 
mit denen Sie Ihren Mampfmann bewegen 
wollen! 

203 PRINT AT 21,0; Drücken Sie eine Taste!: 
PAUSE 5000 

204 Cis 

Zeile 9000 zeigt Fehler an: Abgeändert läuft 
es besser: 

9000 FOR a = 144 TO 157: FORb=0 TO 7: 
READ c: Poke USR CHR= (a) +b,c: NEXT b: 
NEXT a 


J. Grobbin Delmenhorst 


Zuerst einmal ein riesiges Komplimen: 
artılar pe CPL Rx und | Home 

D Kic a Ic Ni ’Idt schon vrar Co NDUIerze ar 
NIen Quspr ‚bie rt, doch erst In re beiden 
hab en mMlic h PIC ıtie uberzeugt. 
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Autofahren liegt so ziemlich jedem 21- 
vilisierten Menschen. Deshalb sind 
Programme die einen Fahrsimulator 
enthalten. für die Mehrzahl der Com- 
puterlreunde bestimmt eher interes- 
sant als die oft recht komplizierten 
lugsimulatoren. die eine lüngere 
UÜbungsphase vorausselzen, 

Motor Mania ist ein solches Fahrpro- 
eramm. Neun Schwierigkeitsstulen 
stehen zur Verfügung. Sie können Ihı 
"ahrzeug auf Autobahnen. Lund- 
straßen oder auch auf holprigen Ne- 
benstraßen bewegen, Die tollsten Hin- 
dernisse kommen Ihnen gerade dann 
entgegen. wenn Sie am wenigsten där- 
aul vorbereitet sind. Da gibtes Baustel- 
len und Schlaglöcher sowie andere Ge- 


- 0. ' " TEE Änme u 
Jedermann weiß. daß der Commodore 64 besonders stark 
Grafik. den Sound und seine Farben ist. Programme tur die 


uı 


diese Eigenschaften tunlichst zunutze machen. 


venstände auf der Strecke. 
Andere Verkehrsteilnehmer kommen 
Ihnen entgegen oder müssen überholt 
werden. 

Wihrend der Fahrt sorgt ein dem ech- 
ten Motorlärm gut nachempflundenes 
Geräusch. für die richtige Einstim- 


mung. Ein Tachometer zeigt die Jewei- 
live Geschwindigkeit an 
Weitere Anzeigen warnen vor zu 


\r 
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lunesumer Fahrt (ob das wohl im Sınne 
der Verkehrserzicehung ist?) oder zeigen 
dem Führer. wann das Benzin zu Neige 
veht und er eine Werkstatt aufsuchen 
mu, 

Bei entsprechender Fahrweise kann 
ler Motor überheizt werden oder düs 
Motoröl wird knapp: was durch ent- 


Tu 


h 
a 


uw 


PATIENT EETU I HE 


ä 1: Roi 
omputer sollten sieh 


sprechende Warnl: 
wird. Da heibites. re 


statt aufzusuchen. ehe dei 
Geist atılaıbt. wie mim () 
Nuch jeden erloleı h 

nen Fuhrtstrecke gi ı 
von 1.000 Meılen. Nach 

nen Meilen wird ein zusitzii 
veewlährt (man beeinnt mit 5) 
RAT h ullem. wis wir Diet 
ben. kunn man Most: AT 
klussiges und hochint 
\rcade-Spiel bezei hnen 

( ommodore (4 alle | hr 


zeigt, was in solch einen 


kann 
INI 


STUTESTUU SUN 
FAT ATS TUN 


I ZE % \, 
NUT/A hei WIosoll 


dus 


, 
Pri 


ar 











Heli-Command 


für den C-64 
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Verteidigen Sie Ihre Stadt! ”Heli-Command” - 
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gutem Sound und ebenso guter Grafik - für den C-64 


Zwei Helikopter greifen an: Der eine 
versucht zu landen und möglichst viel 
Invasoren in die Stadt zu bringen, der 
andere versucht bereits während des 
Anfluges, Bomben abzuwerfen. 
Gelingt es den Helikoptern, eine be- 
stimmte Anzahl von Bomben in der 
Stadt zu deponieren oder über ihr 
abzuwerfen, wird diese von den Angrei- 
fern eingenommen und die vollstän- 
dige Zerstörung läßt nicht lang auf 
sich warten. 


Es ıst wirklich nicht leicht, die bei- 
den ”Heli's” unter Kontrolle zu halten. 
Einzige Wafle für Sie ist eine auf der 
Grundlinie des Bildschirmaufbaues 
verschiebbare Laserkanone, mit der 
man das Landen der Angreifer und die 
abgeworfenen Bomben, noch wäh- 
rend des Fallens zerstören kann. 

Besonders verübeln kann man es den 
Angreifern, daß sie bei Tag anrücken 


und die Kampfhandlung um Mitter- 
stockdunkel ist, 


nacht, wenn es 


a 571 0 Bu 2 5 3 2 3 2 5 2 2 2 2 2 2 2. 2 2 2 5 22 2 2 2 22. 5, 2 2, 2.2 
1 REMW HER S =,56 D-:M: RD 
2 REM x 
3 REM %* EIN ARCAHDE-SFIEL * 
4 REM # FÜER ’ 
> REM # LOMMODUIRE 64 + 
6 REM # + 
’ REM %# VON + 
8 REM ab BALDAUF, ROCKENHAUSEN# 
9 REM # LUITPOLTDSTR,. 62 + 
18 REM& COPYRIGHT OKTOBER 1383 + 


11. RE IRB MN ehe 


14 PRINT"T" 
16 GOSUESBHH 
18 EN=939 

19 5I=54272 


REM 
13 FORR=ATOS2 : POKEIEB+R, 8: NEXTR 


20 v=53248 : POKEV+32, 15: POKEVY+33, 15 


21 DIMWI<C2S? 

22 PL=54296 

23 TI$="0A9098" 
24 ANG=B 

26 S2=54279 


Mn, 
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ein wirklich spannendes Spiel, mit 


erst dann ihren Höhepunkt erreicht 
Das Spiel hat Highscore-Wertung. 

Mit 300 bzw.600 Punkten, wird eine 
Landung des Heli's ausgeglichen. 
Wenn ein- oder mehrere Helikopter 
gelandet sind und der Spieler 1000 
oder 800 erreicht hat, wird ein Treffer 
der Stadt abgezogen. 

Bei der Level-Eingabe ist der Level 
gleich der Anzahl von möglichen bzw. 
erlaubten Treffern der Stadt, bzw. 
Landungen der Helikopter. 
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POKEV+21,31:POKEV+28, 17 
POKEV+39, 2: POKEY+48, 8: POKEY+41 8: FORI=@TO4 :POKEV+42+1, 1 'NEXTI:POKEV+43, 6 


POKEV+37 , 14: POKEY+38, 8 

POKE2948, 11: POKE2041 , 13: POKE2842, 14: POKE2843, 15: POKE2044 , 11 
REM EINLESEN DER DATEN FÜUER SPRITES 

FORI1=8T062 : READX :POKE?&4+1,%:NEATI 


88 FORI=8T062 :READX : POKESSZ+1,%:NEXTI 


FORI=9T062 : READX : POKESIE+I , X: NEATI 


188 FORI=AT015:POKE368+1,8:FORI=16T0465TEP3 ' POKE9IEGBH+T , 16 NEXT 
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FÜRI=465T062 : POKE936B+1,8 NEXT 
FORK=ATO24 RERDWI CK) NEAT 
GSOSLBSZHK 

PRINT"N" 


; REM STADT WIRD AUFGEBAUT 
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FOKEY+32.,15:POKEV+33, 19 . 
FORÜ=1954T01984+39 POKEN , 224: FOKEO+54272, 6 NEXT 
F=H 

E=INT(RNDE 1) #1) +6 

F=INTERNDG1)IK2)+3:D=B#26  E=E+1 

FÜRH=1TOF : D=B#26 ” 
FORC=STODSTEP4B: POKE1344-C+HE , 174 POKESEZIE-CHE, 12 
NEATC 

E=E+1 : IFE>3BTHENE=G:GOTOZ218 

NEXTH: GOTO148 

FEM WOLKEN UEBER DER STADT 

PRINT" Sr EERBBBPBBBEbBL__ mn 
FEINT'IBBRRBERBBBBI «2 — u 


PEINT'IEBI_ HEBT a 
PRINT" NEnBBEbBBE 

PRINT" "Eiusz.. un TE 
PRINT TE 

PEINT"SSSSCORE 8 IT = "EHER. = 333 WHGR. @E 
FORK=ATO24 : POKESI+K,WLCK) : NEXT 

FOKESI+4.65: POKESI+18,65:FOKESI+11,65 

'Y=f: BX=9: TUS=A: SC0=R: BOM=B: Q=4:POKEYW+16,0 
7%4=298: Z7=55 

R=18# 

POKESE322 , 224 

x=218 


POKEY+6.,8: POKEW+7,% 

Ü=h 

FEM SPIELBEGINN 

POKEY+B.0:POKEV+1,R 

ZEIT=YALCTISY: IFZEIT>=3BRANDZEITS4BBTHENPOKEY+32, 11: POKEV+33, 11 
IFZEIT>=41ATHENPOKEVY+32,8: POKEY+33,R 

4 IFZEIT?=7ABTHENT I $="GRRgaR" :POKEV+32, 15: POKEV+33, 15 
IFEr>=168THENPOKEY+27,8 

IFET<1SATHENFOKEV+Z7 , 2 
IFSCO=3BR0RSCO=GABTHENANG=ANG-1: TUS=1 : G0OSUB3895: SCO=SCO+18 
IFANG>=1ANDSC= 1 ABBORANG>=1ANDSC=SBBTHENCIT=SCIT-1:5C0=SC0O+18:GOSUBZ2028 
POKEV+8 , 24: POKEV+3, Z7 
IFZX>3BANDET=@THENPOKEV+Z , 24: BY=Z7+6 : POKEV+3, BY ' BOM=1 : Ex=2X 
IFECM=1 THENPOKEY+2, BA: POKEW+3, BY: B'r=B'r+4 : BX=BH+. 4 
IFEY>=238THENPOKEY+2, 8: POKEV+3, A: BOM=B: B'7=6 ' GOSUBZBBB 
IFBX>=250THENBA=BA-.4 

IFZX>=228THENZ'Y=ZV-2.1:2%=2%-.5 

IFZ'Y<=2THENZA=8: Z7=55 

POKEY+4,%: POKEV+S5, 221 

REM JOYSTICK PORT 2 (J=PEEK(56320)) 

REM JOYSTICK PORT 1 CJ=FPEEK(563219) 

J=PEEF. (56320) 

IF ( JAND4 >=ATHENA=A-6 

IF ( JANDS)=@THENA=A+E 

IF%>=243THENGOTO488 

IF<CJANDLS>=@THENGOTOSBB 

Z4=Z4+1.5 


w 
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IFP 


Br 


„= 
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IFFEEK(V+1E)=12ANDS<=STHENFOKEY+16,9:%=2 
IFFEEK(V+16)=1 3ANDK<=BOTHENPOKEV+1E 1: X= 
IF<=>255STHENFOKEVY+16, 12: %=A 
IFÜ=>25STHENPOKEV+16E,1:0=A 


‘ bUOTO3?3# 


REM UNTERFROGRAMM SCHUSS 

P=298 

EN=EN-S 

PRINT"&" ;TABC25);EN 
IFEN<=1B8THENGOTOAROR 
IFGIH=@ANDSCH>=3BBATHENEN=EN+5GB :GIH=1 


u=X% 


IFPEEK(V+16)=4THENPOKEV+16, 12 
IFFEEK<V+1&)=STHENPOKEV+16, 13 

IFPEEK« re AIANDÜ>=38THENBOM=1 

Q=Q+1. 

ZUaZu 2 

IF@>=255THENPOKEY+16,1:0=8 

IFPEEK (V+16)=12ANDO>=255STHENFOKEVY+16, 13:0 
IFFEEK(VY+16)=13AND@>=35THENPOKEY+1E,12:0= 
IFPEEK (V+16)=1ANDA>=35THENPOKEV+16.,8:Q=8 
POKEY+E,0:POKEVY+1,R 
FOKEV+8, 24: POKEV+9, Z/ 
POKEV+6&,xX0:POKEV+7.P 
IFBA>=253THENBR=BX-. 4 
IFBOM=1THENFOKEW+2, BA: POKEY+3, BY: Br=Br+2.5:BXx=BX%+.4 
IFErT>=230THENPOKEVY+2, 8: POKEY+3,8: BOM=B: B'r=8: : GOSLUB2998 
IFHUB=1THENR=R+2:9=0-1.3 

IFZA>=ZZETHENZV=SZ7-1.5: ZX=2ZK-.5 

IFZY<=2ZTHENZX=B: Z7=50 
IFR>=225THENPOKEV+6, A: POKEVY+7,@: FOKEV+16,8: POKEY+27 ,8' GOSUB3RGB :GOTO414 
P=FP-15: IFP<ZSGTHENFOKEY+7 ,60:G0T0338 

IFPEEK (Y+38)=18THENP'=6 : BOM=8 : GOTOI3E 

IFPEEK ( Y+38) =3THENGOTOS7& 

POKEV+38,8 

GNTOB1R 

REM HELIKOFTER GETROFFEN 

ALTA=PEEK (VY+32) :ALTE=PEEK(V+33) 

FORK=54272T054296 : POKEK ,@: NEXT 


= 
u 


d POKES4279, 3: POKES4277 , 38 : POKES4278 31: POKES4276, 129: POKEPL, 15: POKES4273,6 


POKES4272, 286 : FORTY=14TOBSTEP-2: FORT=1T045 : NEXT : POKES4296, Tr 
POKEY+32, INTCRND(CO)#157 +1 
POKEY+33, INTCRNDCBIH1SP +1 


988 NEXTTY 








Pi K u + I, l/ 
3 SCD=EO+R PRINT" HTABCH» ;SC0 


POKEV+32, ALTAR: POKEVY+33, ALTB 
FORK=8T024 : POKESI+K, WI CK) : NEXT 
FOKESI+4,65:POKESI+18,65:POKESI+11,65 
sL0=SCc0+58 

PRINT" M"TAB(S5>;SCO 

POKEV+38,8 

POKEY+6 6: POKEVY+7,8 

3 a en art 4a ul 


GOT032@ 
REM BOMBE GETROFFEN 

ALTA=PEEK (+32) : ALTE=PEEK(V+33) 

POKEV+2, 8: POKEY+3, 0 

POKEV+6 ‚9: POKEY+7,@ 

FORK=542721034296: POKEK,@: NEXT 

279,9: POKES4277 . 38 : POKE54278, 31 :POKES4276, 129: POKEPL, 15 POKES4273 8 
4272, 206 'FORTY=8TOGSTEP-2 : FORT=1TOBB: NEXT  POKES4296 , Ty 


FoEin32 iin" 


I+K,WULCK> NERT 
1+18,65: FOKESI+11,65 











ara FPOKEW+32.ALTA:POKEVY+33,ALTB 


I=H GOTO33A 


Bisisis 
eami 

2445 
FHAr 


aa? 


REM BOMBENTREFFER DER STADT 
FORK=54272T054296 : POKEK,@: NEXT 
ALTE=FEEK(V+33) 

FOKES4273, 3: POKES4277 , 38: POKES « B499E T\ 
FOKES4272, 186: FORTY=1STO@STEP-1 :FORT=1T0128: NEXT : POKES4236, TY 


316 POKEW+3Z2, INTCRNDCAIHISI +1 


JM I m fü ro) To fü fo u 
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2238 
2348 
2218 
2328 
2328 
2348 
2358 
2368 
2378 
2372 
2376 
2377 
2290 
2330 
2406 
2418 
2088 
38681 
3082 
384 
3095 
3098 
301% 
2934 
3448 
3042 
3845 
3055 
356 
3957 
3053 
3053 
3068 





FOKEY+33, INTCRND<CB) #15) :NEAT 


= FÜKEY+33,RLTE:POKEY+32, ALTE 


te 


> FÜRK=ATOZ4 : POKESI+K, WI CK) :NEAT 
FOKESI+4,65:POKESI+18,65:POKESI+11,65 
 GIT=SEITHI 


FREINT"S"TABC1E)SCIT 
IFEIT=LEVYTHENGOTO2288 
FETURN 

REN STADT HIRD ZERSTOERT 


- FRINT" SIEISIKTEOIKEEEAIHRE STADT WIRD ZERSTOERT |" 
' FEINT"ORBBBBBBBBERFECH GEHRET 7?!" 


FORK=54272T054236 :POIKEK,@: NEXT a Bi 
FOKESI+3,8: POKESI+6, 248 : POKESI+4 , 123: FOKEPL, 15: POKESI, 1:POKESI+1,5 
R=B 

IFR=1@THENR= : GOT02288 Eee 
FORT=1T01@:POKEY+33, INTCRNDC@)#19)+1 :POKEV+32,, INTCRNDCBI#12) +1 
G=INTCRNDCO)K329)+1 


> C=INTERNDCO) #32) +1 


FOKE1624+G, 32 
FÜKE1624+C ,32:NEXT 
FOKEV+32,15: POKEY+33, 15 


aA FOKESI+4,123:POKEPL,15:POKESI,1:POKESI+1,5 
1 FORHY=15TOGSTEP-1:FORH1=9T019A : NEAT : POKEPL, H'Y7 NEXT: R=R+1:GOT02216@ 


FORGH=ATNS: POKEW+GH, A:R=R+1:NEXT 

FRINT"TT': IFSCO>HIGHTHENHIGH=SC0 : GOSUBEAHA 
POKEY+33,.7:POKEY+32,2 

FEINTTEREEIBBISIE HABEH IHRE AUFGABE NICHT EFFUELLT, " 
PEIHT"MBBBITROTZDEM HABEH SIE ";SC05" PUNKTE." 
PEIHNT"BBESHIGHSCORE :"; HIGH 
POKES6222,255:FRINT'"MIIRBEHMOECHTEN SIE ES HOCH EINMAL " 
FEINT"BBNERSUCHEHN (.I/H) 7?" 

GETER#: IFER$="" THEN2365# 

IFER$=" J" THENHSCO=B : ANG=G:CIT=A: EN=999: TI$="AnRAAR" 
IFERt=" J"THENINPUT"MRLEVEL (4-1)";LEVYE:LEY=VAL(CLEYS) 
IFLEW<ZPIANDLEVYCDZANDLEVY<>3ANDLEYSP4THENLEY=1:GOTO115 
IFER£=" J]" THENGOTO115 

IFER£Z>" HM" THEHZ36O 

PRINT" IIRERETSCHUESS I 11 1" 

PRIHT"MMICH HOFFE DAS SPIEL HAT IHNEN GEFALLEN" 

PRINT" Mein" :EHD 

REM ANGREIFER BESETZEN DIE STADT 

POKEVY+1,0 

HUB=@ 

ANG=ANG+ 1 

TFANGCSTHENANG=B 

IFAHG=LEVTHEN3848 

PRINT"a"TAB<27) ;ANG:R=100:0=8 

RETURN 

REM DIE STADT IST BESETZT 
FOrK=542721054296 : POKEK ‚8: NEXT. 

BE eitie 

POKEV+33, 15: +32,15: 111173 ; 
PRIHT"IRBBBBBBISTADT EINGENOMMEN." - WDIE ANGREIFER HABEN IHRE 
POKEPL, 15: POKESI, 159: POKESI+4, 65 
FORH1=208T08STEP-2 :POKESI+1 ‚Hi: FORHT=@TO1: NEXT : NEXT 


POKEPL , 15: FORH=1T03: FORHI =128T08STEP-5:POKESI+1,,H1 :FORHT=BTO3B : NEXT : NEXTHI 


NEXTH: POKESI+4, 16 


4278, 31: POKES4276 , 123: POKEPL, 15 POKES4273,6 
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A FRINT"wÄReIBBbBRBBRT = 


a: POKE'Y+5,9:POKEV+&,D 


PÜOKEY+B, GB: POKE"+1.,8: FPOKEW+2, A: POKEY+3,9 POKE'Y+4, 


3 POKEY+7 ,M:FOKEY+8,9: POKEY+9,0 


IFSCO>HIGH THENHIGH=SCO : GOSUBEBHR 
FRINT'MBBBBELÖLLEHN SIE EIN NEUES 
PRINT" SIMERITSHIGHSCORE : "HIGH 
GETER®$: IFER$=""THEN3210 

IFER$=" IT" THENSCO=@ : ANG=@:CIT=0: FOKEY+32, 15: T1$="000990" 
IFER$=" I" THENINFUT"IBLEVEL 4-19"; LEVYE:LEY=YAL(CLEY$) EN=333 
IFLEYZ>IAHDLEYS>PZANDLEVS>PSANDLEY<P4THENLEVe1 'GOTO115 

IFER$=" I" THEN115 

IFER$="N'" THEN3248 


SPIEL <J/N)> ?" :POKES6322, 255 


> GNTO2218 


PRIMT" SIMSIIMeIeT SCHLIESS I 1 1" 
el. HOFFE DAS SFIEL HAT IHNEH GEFALLENMEIEINDEIRDEERN 


A REM KEINE ENERGIE MEHR 


PÜKEV+32,15:POKEN+23,15 

FEINT'"DBBRBBRBBBBBEHNERGIE VERBRAUCHT. ES DAUERT " 
FRIMT"BBRBBBBBBBBHICHT MEHR LANGE UND DIE STADT" 
PRINTTEIRBBBBBBRBPI IST ZERSTOERT" 


6 NT03230 

EXT=1024 : EXF=5329€ 

REM HIGHSCORE 

üPL=8 

GT=E 

FORK=5427 27054296 : POKEK., 8: NEATK 
PRINT"." 

PRINT" SHIGHSCORE 
IFÜOFU=Z3THENH1=50: GOTOBSESE 
GOTOEBSR 

rEM 

FOKESI+3,5:POKESI+6. 2409: FOKEFL, 15: FOKESI, 1590: FOKESI+4, 65 
POKESI+1,H1:H1=H1+3 : FORGH=EOTÜS08 : NEAT 

PNKEW+3Z, INTERNDEGP #15? +1 

POKEW+33,7:GT=6T+1 

IFGT=11THENGOTOEBSE 

GOTOIEASE 

FORHI1=Z28ATOASTEP-3:POKESI+1,H1:NEAT 

PIKESI+4,65 
FRINT" SIMIMIMIem" : FOKEPL, 6: RETURN 

REM VORSPANN 

POKES3238, 15: POKES3251,15 

FORE=3427 27054238 : FORER, 9: NEAT 

PL=54295 

51I=54272 

POKESI+4,8: FOKESI+Z.8: FOKESI+3,5: FOKESI+E, 240 
POKEFL,S5:FOKESI+4, 129: FOKESI . 250: POKESI+1,2 
ul ı IBBBBBI " 
PEINT"IHBBBBBRBIA IbbBI MI IbbbbBI Ib " 
FEINT'"'TSBRBBBBRBIA IBBBI ) IBDDBBI IHBBBBI " 
PEINT"IBBBRBRBBIA IBbBI I IBBbbBI RBB" 
PEIHT"EZ9BBPBBBBBI3 u ı IBBDBBI " 
FEIHT'"IBBBBBRBBIZ IbBBI I IbBBBBI IBBBBB " 


HIGHSCORE" : OFU=OPU+1 





A PRIHT"TSBRBEBBBBIA FbBDI )I IEbBBBI IDBRBBI " 


PREIHT'"IBDBRBBBBIA )bBbBbI » IbbBBBBbI IBBBBBI " 
FREINT"mIBBBBBBBBIZ IBbbI II IbbBBBI IBbBBBI " 
FEIHT'"IBBBRBBBBIG = an " m" 
FRIHT"ZIMIEEIBBRBBBBRBBBBB. CI MM FH I" 

PETUFH 

REM YVORSPAHH TEIL Z 

POKEPL‚,15:POKESI, 156: POKESI +4,65: FORH1=255ST08STEF-1 :POKESI+1,H1 NEXT 
FÜRH1=ET0255: POKESI+1,H1 :NEAT :POKESI+4, 16 

POKEFL, 15: FOKEST, 158: POKESI+4,65: FORH=8TOIG 
FÜRH1=18AT030STEP-4 : FOKESI+1 HI NEXT NEXT: POKESI+4, 16 
POKESI+4, 123: FOKEFL., 15:POKESI. 1: POKESI#+1.5 
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FÜRH=1STOASTEP-1 :FORH1=8T07@: NEXT POKEPL,H°NEAT E E 2 
den; POKESTHK 11 CK) NEXT :POKESI44, 65: POKESI+18, 65: POKESI+1 1,65 
Fl=fi 

FÜKEVY+G,.FU:POKEY+1.,188 

IFFIUI=24STHENFPU=8: GOTO83108 

FII=Fll+1 'G0T08290 

FÜKEVY+S.FU:POKEY+9, 180 

IFFU=SATHENPU=6G : GOTOS3SE 

FL=Fll+1 'G0TO8314 

TU=195 

FOKEY+4, 160: POKEY+5, 218 

FÜRG=ATOSAR : NEXT 

FEW=13RA 


POKEY+B, 248: POKEY+1, REU 
FÜKEY+S, 0: POKEY+3, REW:REW=REU-E 
IFREUZ=SATHENREN=REN+E 

FREINT: NEXT 

FÜRPLU=169TO116STEP-1 

FÜKEY+4,PII:POKEVY+5, 21% 

NEXT 

GOSLES4SE 

GOTOS7SA 

TuU=118 

FORA=1T014 

POKEW+4, TL:FOKEY+5, 218 

FÜRFU=ZBETOSESTEP-23 

FÜKEY+6, TU: POKEY+7,PU 

NEXTFU 

FÜKEY+6&.2:POKEY+7,8 

TU=TU+8 

OMAGOSUPSERG. 2614, 9620, 2638, 8648, 23650, 3668, 8678, 9698, 3698, 3748,8719,8728 
IFA=14THENGOSLUBS738 

NE#T 

RETUFRH 

POKE1116,3:POKESS383,3:RETURN 
POKE1117,5:POKES5389, 8:RETURH 
POFE1115,12:FOKESS328, 8: RETURN 
POKE1119,9:POKES5391,8:RETURN 
POKE1124,.32:RETUFH 
POKE1121,45:POKES5333, 8: RETURN 
PCOKE1122,32:RETUFRN 
FOKE1123, 3: POKESS395,8: RETURN 
FOKE1124, 15: POKESS396 , 3: RETURN 
POKE1125, 13: POKESS3397 ,8: RETURN 
POKE112#,13:POKES5393, 8: RETURN 
POKE1127,1:POKES53399, 8: RETURN 
POKE1125, 14: POKES5488,8: RETURN 
POKE1129, 4: POKESS481,8: RETURN 
FPEINT'BERIIBBBBLZUR VERTEIDIGUNG DEINER STADT" 
PEINT"IBBBBISTEHT DIR EINE LASERKANDONE MIT" 
PEIMT"IBBBBIL GGG ENERGIEEINHEITEN ZUR YER-" 
INYASOREN VERSUCHEN" 
PEINT'"IBBBBMITTELS HELI’S DIE STADT EIN-" 
PFEIHT"WBBBBEZUHEHMEN BZU DURCH ABWURF VON" 
PEINT"IBBBBIIONENBOMBEN SIE ZU ZERSTOEREN. " 
PRINT"IBBBBEEINE AUFGABE BESTEHT DARIN," 
PFINT"IBBBBIDIE BOMBEN VOR DEM AUFSCHLAG" 
PRINT"IBBBBIDURCH EINEN LASERSCHUSS ZU ZER-" 
FRIHNT"IBBBBEETOEREN UND DEN UNTEREN HELI" 
PREIHT"IBBBBIANM LANDEN ZU HINDERN. DAZU" 
PEIHT"IBBBBMUSST DU IHM VOR ERREICHEN DES" 
PRIHT"IBBBBRECHTEN BILDRANDES ABGESCHOS-" 


34 PRINT"IBBBBISEN HABEN. GENAUES TREFFEN IST" 


PRINT"IBBBBNORFAUSSETZUHG. " 
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FÜRFU=214TOSASTEP-1 
FÜKEV+4. PLI:POKEY+5, 219: NEXTPU 


" FRINTWBRBBHAST DU EINE BESTIMMTE PUNKTE-" 


FFINT'IBBBBERHL ERFEICHT, WIRD EIN TEIL" 

FEINT'IBBRBIER INVASOREN BZW DER IONENBOM-" | 
FEINT'IBBBBIBEN NEUTRALISIERT. IC TASTE)" | 
SETEFR#: IFEFR£=""THENS97O 

FÜRFU=SSATOGSTEP-1 | 
FÜKEV+3.PU:POKEY+9, 55 | 
NESTPLI 

FÜRFU=SSTORSTEP-1 

PÜKEW+G, 248: POKEY+1. PLI:NEXT 

FÜRFU=ATO24: PRINT :NEZT 

FÜFPLU=3AT0118: POKEY+4, PL: POKEY+S5 , 210: NEXT 

SOSUBS4SA 

FÜRFLU=214TO38STEP-1 : POKEY+4 , PU: POKEY+5 , 218: NEXT 

PRINT" WSIMKIKTEIRBBBBEIAEHREND DES SPIELS DARFST" 

FRINT'IBBBBIL HICHT ERSCHFECKEN, DEHN HAFH" 

FEINT'IRBBRNACH EINIGER ZEIT DAEMMERT ES" 

PEIHNT"IBBRBBLHND ES WIRD DUNKEL." 

GOSLUBS3GG 

FFEINT'MEIIIEEEEBEBBEIUHD HUHN VIEL SPASS" : POKEYW+4,9:POKEY+5,8 
FEINT'MEEIMELEVEL ? 4-13" 

GETLEYE: IFLEY£=""THEN9ASS 

LEY=YALÜLEYE£): IFLEYZPLANDLEYC>2ZAHDLEVC>ZANDLEYSC>4THENSASS 
FORK=54272T054296 : POKEK , 8: NEXT :RETUFN 
FÜRPU=38T0126 : POKEW+4, PU: POKEY+5 , 21: NEXT 

FÜRA=1T013 

FOKEY+4, PU: FOKEY+S, 214 

PL=FU+2 


a FORUT=ZAGT01 34: POKEY+E, PU-8 : POKEW+7 , UI: NEXTUI :POKEY+7,R 


ONAGOSLUE3S1A. 9520,9530. 9544, 9558, 9560, 9579, 9588, 3599 , I60R ‚9618, 9629, 9620 
FORUI=BT0158: NEXT NEXT: FORK=54272T054296 : POKEK , 8: NEXT RETURN 
REM LOFYRIGHT 
FÜKE1597 ‚48: POKESSS63, 2: RETURN 

POKE 1523. 3: POKESSS7B, 2:RETUFN 
POKE1593, 41: POKESSS71:2:FETLUFRH 

POKE 199,32: RETURN 
POKE1681 .13: POKESS873, 2:RETUFRH 
POKE16G2, 46: FOKESS374,2:RETUFRH 
POKE1683, 2: POKESS875: 2:RETURH 
FÜKE1684,1:POKESSS76, 2: RETURN 
FOKE1595, 12: POKESSS77 , 2:RETUFN 
PÜKE1606 ‚4: POIKES5878, 2:RETURN 
POKE1697 .1: POKESSS79, 2:RETURN 
POKE16B98, 21: POKESSS8@, 2: RETURN 
POKE1689, 6: POKESS821,2:RETUFHN 

FEM GET 

FOIKEV+4,9: POKEV+5,0 

GETEFF#: IFEFR$£<C>"" THEN37389 

GOTO3714 
FORK=54272T054296 : POKEK., 8: NEXT : RETURN 


10990 REM DATAS FUER SPRITES (LASERKANDNE , BOMBE,HELI1,HELI2) 


18991 
19995 
19819 
19029 
19939 
19949 
12950 
10960 
19970 
121099 
19118 
11009 


DATA, 9,0,9,0,0,0,90,0,9,90,0,0,9,0,80,0,0,90,9,8,3, 255, 255,8,2,0 

DATA132, 178,123, 194,158, 80, 234, 158,88, 194, 170, 168, 192, 170, 168,0, 232, 128 
DATAB, 178, 160,0,0,0,0,0, 0,8,80,0,8,8,8 

DATA, 9,90,9,90,0,0,9,0,6, »8,8,0,8,0,8,8,0,0,8,60,0,0,255.0.0 
DATA126,0,9,60,8,8,68,9, 24,8,8,8,8,8,0,8,8,8,0.0.0.0 
DATAB,0.0,8,8,8,8,0,8,0. 9,8,8,8,0,0,0, 16.0.8. 16.0.0. 1€ 
DATA ,9,16,9,8,16,8,80,12 15,136, 39,215, 200,47,215,232.127 
DATR215, 252, 127,215, 252,8,9,0 

REM DATAS FUER HUBSCHRAUBER TON 


DATR3, 2,8,3,9,0,248,12,2,8,4,8,0, 192, 16,2,8,6,0,0,64,0,30,243.24 


9,8 
9,8 
d,6 
9,8 
4,8 
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FÜRI=8TÜ062 :READR :CrL<Iyen: NEXTI 

FÜRI=O8T062 :READA:STCI)=R: NEXTI 

UATRZSS, 248,8, 127,248,0,127, e32,8,24,48,08,12,24,0,6, 12,0, 127, 255, 232,255 
UATRESS, 254,168,186,63, 179, 130, 255, 138,178, 127,178, 186, 255, 168, 186, 63, 255 


8 IATR2SS.254,127,255,252,6, 12.,0,12,24,0,24,48,0,127,252,8,127, 248,8, 255,240 


DATAB, 28,0,8,62,0,8,127,0,8,247, 128,0, 235, 128,08,247, 128,8, 127,0,0,62,0.8,25 
DNTR®,8,0,8,8,8,0,0.0,0,8,8,8,0,8,8,8,0,0,0,0,8,8,0,0,0,0.0.0.0.0.0.0,0,0.0 
DNTRB, 8,8, 128,0,3,128,9,15,128,8,63, 128,0,231,128,0.63,128,0,15.128.0.3.123 
DATAB,0,128,0,8,0,8,0,8,0,8,0,8,8,0,2,0,0,0,0,0,0.0.0.2,0,0.0.0.0.0.0.0.0.0 
DATRB,8,0,8,0,31, 235,248, 127,255, 254,255, 255, 235,99.275. 198.56. 126,28. 31 
DATAB, 248, 15, 255,248,7,255,224,3,255,192,1,253,128,3,8,162, 7, 2=5.224, 14,98 
UNTA248, 23,213, 243,61,237, 252,126, 108, 126, 143, 235,241 ,96, 126.6.21 0,248. 7 
DATAZSS, 224, 1,255, 128, 8, 178,0, 2,170, 128, 13, 234, 160, 15.234, 168, 63, 170,248 62 
DATA170,248, 63, 170, 248,191, 170,259, 181,234, 122, 181,234, 122, 181,294, 122, 187 
IHTA171,122, 190, 169, 186, 198; 169, 186, 174, 173, 122,46,173, 120.39, 179, 232029 
DATAL7S,232,15,171,169, 15,171, 168,3, 179,123 

POKE2048, 13: POKE2841 , 14 :POKE2842, 15: POKEV+39, 14: FOKEV +48, 8: POKEY+41, 13 
FOKEYV+Z3, 9: POKEY+29,9:POKE2843, 11: POKE2844, 13: POKEW+43, 13 

FOKES1+4, 8: POKESZ+4,0:POrES3+4, 0: POKEPL,O 

FRINT'IRDBEBBEIH SPIEL YON STEPHAN FROEHLICH" 

INFUT"MMUENSCHEN SIE EINE ERKLAERUNG" ;E$ 

IFE&="N"THENGS3BO 

PRINT" T'CHR$C14); 

PRINT'"BEMTIE HI®L#4-|1--M TREIBT MIT SEHR WENIG" 

PRINT"IREIESTOFF IM ®LL.#IE WERDEN MIT EINEM" 

PRINT"KLEINEM, BEUAFFHETEN -ALMGLEITER AUSGE-" 

FRINT"RUESTET UND AUF DIE #UCHE NACH : Ent 

FRINT"GESCHICKT.ER ILEITER IST IN DER LAGE," 

PRINT" -AUMSFRUENGE IN ANDERE | ALAXIEN AUSZU-" 

PRINT"FUEHREN.@BER PASSEN #IE AUF, DASS IE" 

PRINT"NICHT DEN -ONTAKT ZUM IASISSCHIFF VER-" 

PRINT"LIEREN.#IE HABEN —MERGIE FUER 18 -AUM-" 

PRINT"SPRUENGE, DANACH MUESSEN #IE BEI DER" 

PRINT" I @L2-1- MM AUFTANKEN,WENN #IE NICHT" 

PRINT"EINEN "LANETEN MIT IHYLIUM GEFUNDEN" 

PRINT"HABEN.#IE MUESSEN DAZU DIREKT AUF DER" 

PRINT" AI@L®/|S/@E ODER DEN "LANETEN LANDEH. " 

PRINT"-ALLS sIE DEN DR IL ul IN DIE" 

PRINT" IRENDE FALLEN SOLLTEN,HABEN #IE UND " 

FRINT"DIE AI@L#-|1-74M "TECH GEHABT." 

POKE138,8:WAIT198,1:PRINTCHRSX142) 

FRINT'TERRUSTEUERUNG : FEUER = SPACE" 

PRINT"M LINKS = +” RECHTS = 1°" 

PRINT"M UNTEN = =’ OBEN u 

FRINT'"WWEIH MEHRMALIGES DRUECKEN DER FAHRT-" 

FRINT"SRICHTUNGSTASTEN ERHOEHT , BZU. SENKT" 

FRINT"MDIE GESCHWINDIGKEIT IN DER JEWEILIGEN" 

PRINT"MRICHTUNG.DIE SCHUESSE (SPACE) ERFOL-" 

PRINT"BGEN IN RICHTUNG MAXIMALER GESCHWIN-" 

PRIHT"MDIGKEIT." 

INPUT"WWALLES KLAR";ES 

IFE&="N'"THENPRINT"BBMACHT NICHTS": FORI=8TN1888 : NEXT 
FOÜRI=8TO16:FORJ=BTO18:TES«I, J)=" ":NEXTI,I 

TEF(A, O="GALAKTIKA" : ZR=0 : Z0=9 :EN=Q : ZH=B: Zend 

FORI=1T07 


Ti=INTCRNDC1)#6) : TZ=INTCRNDC1YN6) 

IFTE$(T1,TZ)<CD" "THEN7ZBO 

RERDTES(TI1,T2) 

NEXTI 

DATABASISCYLON, CARTLON, ERESTAN, MORTNIA, KREGEN, SARPUS :S.L. 
BU=LEN(TEFCZH,ZW)) 

GOSUBZOBE :%=160 : Y=199: XS=% ' DX=Q: DrY=B:POKEV+16,D 


POKEV+2,% : POKEY+3, 7: POKEY+Z21,2:POKE198,0 
ONBUCOT0388, 908, 980, 2598, 900, 850, 850, 980, 820, 830 
FOR1=3T09 : FORJ=3T015:POKE1024+J+4@WI , 32! NEXTJ, I 
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FÜKEV, 188: FOKEV+1., 88: POKEV+21., FEEK(V+219+1:GOTO988 
FÜRI=8TOSZ :POKE7@4+1,CHLCIY:NEXTI 

FORI=12T017  FORJ=25T033:POKE1824+J+48M1,32:NEXTJ,I : 
FÜKEV+42, 13: POKEY+&, 250: FOKEY+7 , 158 : POKEV+Z1, PEEK(W+219+8 
POKEW+28,0:G0T0338 

FORI=8TO62 'FÜKE?@4+1,5TCI):NEXTI Bi, 
FORI=11T017:FORJ=21T027 :POKE1824+J+ ‚32: a 
FOKEW+42,6: PÜKEV+28, 8: POKEY+37, 5: POKEV+38, 9: PÜKEV+Z1, PEEK(V+21)+8 
PÜKEN+6 , 288: POKEY+7,158 

IFINTCRHDC1)K2)=1THENF2B 

AC=d CH=B: Bx=2:KE=340  EX=KE | FX=-2: G0T0930 

“C=340 :04=348 : BA=-2: XE=B:EX=D:FA=2 

IFINT<RND<1)%2)=1THENSSO 

rC=d:BrYe2: VE=255:Fr=-2:G0T0968 

YC=255:Br=-2:Fr=2:YE=9 

Ji=1:J2=1:G0SUB2698 

FOKEW+4, XC : POKEY+5, TC: FOKEY+B, KE : FOKEW+3, VE 

FÜKEV+21, PEEKCY+21)+28 


i008 IFFEEK(W+31)=2THEN1388 

iSöig POKEW+31,8: IFPEEK(V+3B)<>OTHEN.SOR 
idz6 FOKEY+38,8 

1035 GOSUBZ2688 

1648 PÜKEV+4,XC : POKEW+5, TC 


8 FÜKEV+8,KE:POKEV+9, TE 


i168 FÜKEV+2,X:FOKEW+3, 
iilo GETSE 


> IF5$=" "THENGOSUBZ7OR 


1128 IFS$="+"THENDK=DX-1 
1138 IFS$=""THENDY=DX+1 

1149 IFS$=" 1" THENDY=DY-1 

1158 IFS$="="THENDY=DY+1 

1169 GOSUBZ186:GUT01880 

1308 POKEV+Z1,PEEKCV+Z1)-2:L=INTCCKS-16) /B)+INTLCW-443/B)R48 : POKEN+31, 0 
1318 POKE1824+L, 102: POKESS296+L,7 

1320 GÜSUB1486: FORI=8T02Q0 : NEXT :FOKEY+21, 6 

1330 FRINT'TIWWMBISIE HABEN EINEN STERN GERAMMT," 

1348 GOTO3188 

1488 FORG=15TOBSTEP-.5 

1416 FOKEPL,G:POKES143, 15: POKES1+6.8:POKESI+1, 1: POKES1, 98: POKES1+4, 129 
1428 NEXTG 

1438 POKES1+4,0:POKEPL,® 

1448 RETURH 

1509 IFPEEK(Y+30)=3THEN1538 

1518 IFPEEK(Y+38)=60RPEEK(Y+3@)=18THEN1S8B 

1528 IFPEEK(Y+38)=18THEN161® 

1525 IFPEEK(Y+38)=5ORPEEK(V+39)=12THEN13BB 

1525 IFPEEK(V+39)=17JRPEEK(Y+3@)=24THEN195Q 

1527 GOTO18G8 

1538 POKEV+38,B: IFABSCDX>>1ORABSCDYI>LTHENGOSUB13S8:G0TOLJ1E 

1548 EN=B' DX=8: DY=9:k=16B: 7=188:X5=160 : POKEV+3B, 8: B0T0110Q 

1958 FORISSTO7FORJ=11T013:POKE1824+J+4BWI , 182: POKESSZI6+J+AQMI,7:NEXTJ, I 
1560 GOSUB1488  GOSUB1498 :FOKEY+Z1 8: GOSUB1499: RETURN 

1578 GUSUB1488:FORI=8T0288 :HEXT :GOTO1F1@ 

1588 FOKEV+Z1, PEEKCV+21)-2:L=INTCCKS-169/BI+INTCCY-44) /B)M4B:POKEY+3B, 0 
1590 FOKE1824+L, 102: POKESS2I6+L,7 

1686 GOSUB1488:FORI=QT0288 ' NEXT: GOTO1928 

1618 POKEV+38,8: IFLEN<TESCZH, 24) )=4THENZ400 

1628 IFIEN<TESCZH, ZU) )=6THEN1658 

1638 IFLENCTESCZH, ZU))=7THENL69B 

1648 IFLEN(TE$SCZH, ZY))=1DTHEN1898 


IFABS«DX)>10RABS<DYID1THEN1739 


1660 PRINT" MAMOWIICH GRATULIERE |" :PRINT"WISIE HABEN AUF" 


PRINT"MI'TESCZH,ZW)" THFYLIUM GEFUNDEN. " 
50T03188 
IFABSCDX>D1ORABSCDT)>LTHENI73O 











17080 
1r7iöo 
1720 
ir25 
ir730 
1746 
1758 
1308 
1318 
1328 
153308 
1846 
1858 
13688 
13086 
1310 
1213 
1328 
1325 
1238 
1335 
12468 
1359 
2000 
2018 
2028 
2638 
28468 
2058 
20608 
20878 
2638 
2163 
2165 
zi18 
ziz26 
2138 
zir7ö 
2206 
22108 
22208 
2230 
2248 
2258 
2260 
22708 
2250 
2290 
2308 
2318 
2328 
2336 
2346 
2350 
2368 
2378 
2400 
2416 
24£9 
24308 
2448 
2458 
24608 
2478 
24508 





FRINT"SLEIDER GIBT ES AUF "TESCZH, ZU 
FORI=BT0O2988 :NEKT 

PRINT" " 
"=150:45=160: 7=198 : Di=8: Dr»: POKEV+30,8:G0T01108 


»" KEIN THYLIUM. " 


FOURI=12T017 : FORJ=22T027 :POKE1924+J+48W1 , 182: POKESS296+J+4BW1 ,7:NEXTJ, I 
FÜKEW+21, PEEK(Y+21)-2 

GOSUB1408 : FORI=QT0298 : NEXT :GOTO133B 

FORI=12T017 : FORJ=28T033 : POKE1B24+J+48W1, 182: POKESSZ36+J+49W1, 7 NEXTJ, I 
FÜKEVW+Z21, PEEK(V+Z1)-2 

DUSUB1 486: FORI=STO288 : NEXT :POKEY+21,8 

PRINT" TIRRIIBBISIE SIND VON DEN KRAFTFELDERN" 
PRINT"MBDES CTLONISCHEN BASISSCHIFFS YER-" 
FRINT"BSBENICHTET WORDEN. " 

COTO3S18O 

ACEÄCH EHEN CH=CH+ 1 3KBR  VC=TC+L8HBT : POKEY+30,8:G0T01930 
FRINT' IMMMSIE SIND MIT ZU HOHER BESCHWINDIGKEIT" 
FRINT"MIN DIE GALAKTIKA EINGEFLOGEN. " :GOTO310B 
FRINT'TIKBIINDER C'LONENJREGER HAT SIE LEIDER " 

FRINT" ERWISCHT." :GOTO3108 

PRINT" UWREMSIE SIND MIT ZU HÜHER GESCHWINDIGKEIT" 
PRINT"MAUF DEM PLANETEN "TEF(ZH,ZY) 

PRINT" MAUFGESCHLAGEN. " :GOT03198 

KESKE+FLEHFR EXRSEH+LBAFK : 7 =TE+iS4F'Yr :FOKEV+30,8:GOTO1838 
FRINT" IE" 

FÜRI=OTOSE 

K=INTCRND(13%9399)+1924 

FOKEK, 42: POKES4272+K ,1 

NEAT 

FORI=STO8:FORJ=165T01% 

POKE1B24+J+40 81, 32 

NEATJ,I 

RETURN 

IFCXRS+DAD>34D0R CKS+DK)COTHENZZOR 
IFCT+DTI<BOR CH) >25S5STHEN2208 

A=AFDK: V=r+Dr7  ASekS+D% 
IFK>ZSSTHENK=X-255 : POKEY+16 , PEEKCY+16) +2 
IFX<OTHENX=255+% : POKEV+16, PEEKCW+16)-Z 

RETURN 

FOKEY+21,8:POKEV+16, 8: FCKEPL, 15:POKES1,2:FOKES1+1, 14: POKES2, 2:POKESZ+1, 14 
POKES3, <: POKES3+1, 14: POKES1+4,33: POKES2+4 , 33: POKES3+4 ‚33 
PRINT TIRDMIRDIKIRKENNDN" TAB «163 " RAUMSPRUNG" :FORI=BTO78B: NEXT 
FOKES1+4,8: ROKES2+4, 9: FOKES3+4,8: POKEPL,8 
IFCAS+DX) 3348 THENZR=ZR+1 :EN=EHN+1 
IFCKS+UK)<BTHENZR=EZR-1 :EN=EN+1 

IFCT+D'T) LOTHENZO=Z0+1 :EN=EN+i 
IFCr+D'Y)>>255STHENZO=Z0-1 : EN=EN+1 

ZH=ABSCZR) : ZV=AB5(Z0) 

IFEN<>STHENZ348 

PRINT" IIIWSIE HABEN 5 RAUMSPRUENGE HINTER" 
PRINT"MSSICH. IHRE ENERGIE REICHT NUR FUER" 

PRINT"MS WEITERE RAUMSPRUENGE. " 
FÜRI=8T05898 : NEXT : PRINT"7]" :GOTO76B 

IFEH<11THEN7EO 

FRINT'TDINIEWMLEIDER I5T IHRE ENERGIE VER-" 
FRIMT"MBRAUCHT." 

GOTO3188 

POKEW+21,8:POKEVY+16,8:POKEPL,15 

FRIMT'IBBBISIE SIND LEIDER IN DAS ANZTEHUNGS-" 
PRINT"WBBFELD EINES SCHWARZEN LOCHS GERATEN. " 
PRINT"MMBBBEEE YOU IN THE NEXT UNIVERS" 

POKES1+4,65 

FORI=255T085TEP-2 :FORJ=258T095TEP-S50 
POKES1,J:POKES1+1,1I 

NEXTJ,I:POKES1+4,8 

GOTO3188 








POKE704, 255: POKE7BS, 255 : POKE796, 255 

FORI=787T07635TEP3 

FOKEI, 128: POKEI+1,8:POKEI+2, 1 

> FOKE764 255: POKE765, 255: POKE766, 235 

545 FORI=7T012:FORJ=i8T023: POKE1824+1+48MJ, 32 :NEXTJ, I | 

POKEV+42, 11: POKEV+21 , PEEKCV+21)+8 : POKEV+6, 78: POKEV+7, 288 | 

3 POKEV+26,8:60T0998 

IFXS>CKTHENBK=2 : GOT02628 | 

sid Ex=-2 

IFXS=CXTHENBAX=8 

IFY>TCTHENBY=2: GOTO2658 | 

Br=-2 

IFY=STCORCVC+BrFI<BORCFCHBTI>ZSSTHENBT=B | 

IFKS>EXTHENFX=2 :GDT02653 | 

 FX=-2 | 

3 IFXS=EXTHENFX=B | 

IFY>VETHENFY=2:G0T02656 | 

Fr=-2 

IFY=TEORCTE+FTI<BÜR CTVEHFTIDZSSTHENFT=8 

IFJi=BTHENZ2675 | 

KC=KXC+BX : 7C=YC+BY :CK=CK+BX 

IFXC>2SSTHENKC=KC-235 : POKEV+16, PEEKCY+16)+4 

IFXC<BTHENKC=25S5+XC : POKEV+16 , PEEK(Y+16)-4 

75 IFJZ=8THENRETURN 

EX=EX+FX : KE=KE+FR : WVERTE+HFY | 

IFXE>2SSTHENKE=KE-255 : POKEV+16, PEEK(Y+16) +16 

IFKXE<BOTHENKE=255+XE : FOKEV+16, PEEK(V+16)-16 

RETURN 

IFCABS<DX)-ABSCDY))=BTHENRETURN 

KF=INTCCKS-16)78) :YF=INTCC'/-44) 78) : POKEY+31, 8 | 

IFCABSCDX>-ABSCDYT) J)>@THENZ7SQ 

IFDY<BTHENZ7UB | 

IFNY>OTHENZE3H | 

IFDA<OTHENZ3S38 

IFDX>OTHENZ338 

FORI=TFTOBSTEP-i 

POKE1824+XF+40# 1, 66 : POKESSZI6E+KF +41, 7 

IFPEEK(V+31)=4THEN3808 | 

IFPEEK(VY+31)=16THEN3885 | 

IFPEEK(W+31)=1THEN3398 

IFPEEK<'Y+31 )=8ANDLEN(TEFCZH, ZW) )=6THEN3408 

IFPEEK(V+31)=SAHDLEN(TESCZH, ZV) )=18THEN3SBD 

POKE1B824+KF+4G#1,32 

NEXTI : RETURN 

FORI=YFTOZ4 

POKE1024+XF+40W1 ‚66 : POKESSZIG+KHF +41, 7 

IFPEEK (W+31)=4 THEN3988 

IFPEEK(V+31)=16THEN3BB5 

IFPEEK<Y+31)=1 THEN359® 

IFPEEK (V+31)=SANDLEN(TESCZH, ZY) )=6THEN3408 

IFPEEK (+31 )=SANDLEN<TESCZH, ZV) )=1BTHEN3S58D 

POKE1@24+XF+40# 1,32 

NEAÄTI : RETURN 

FORI=AFTÜOBSTEF-i 

POKEiB24+1+40W/F ‚67: POKESSZIG+ I +40MYF,7 

IFPEEK(V+31)=4THEN3858 

IFPEEK(V+31)=16THEN3@55 | 

IFPEEK(V+31)=1THEN33BB | 

IFPEEK(V+31)=BANDLEN( TESCZH, ZV) )=6THEN340B | 
i 
j 


IFPEEK<V+31)=8ANDLEN(TES (ZH, ZV))=1BTHENIEBRO 
POKEi1824+1+40M'YF ‚32 

NEZTI : RETURN 

FORI=XFTO33 











3855 IFEXPZSSTHENPOKEV+16, PEEK(YV+IE)-i6 

Je=8 : POKEW+31,8:POKEW+Z1, PEEK(W+219-i6 
PÜKEiB24+1+40#TF , 182: POKESSZISE+HI +4" , 7 
GOSUB1486 : FÜRJ=ETUZBGB : NEXT: P=F+1 

FÜKE1824+1+40%'YF , 32: RETURN 

FOKEV+21,8:PRINT"SSIE HABEH "P" CrLONEHJREGER" 

PRINT" MABGESCHÜSSEN. " 

GOSUB3206 :FÜKE193,8 

PRINT"MURRLÖOLLEH SIE NOCHMAL ? LJ/HI" 

GCETR#: IFR&=""THEN3148 

IFR&<>" I" THEN3178 

EH=6:F=8: ZH=B : ZV=B : POKEY+16,8:G0T07658 

POKES3Z88, 14 : POKES3281, 6: PRINT"TZI' :END 

FOKES2Z+S, 15: POKESZ+6, 8: POKES3+5, 15: POKES3+6, 8:FÜKEPL, iS 
FOKESZ+4,65: POKES3+4,65 

FÜRI=8TOZOG 

FÜKESZ, 2:FOKES2+1,45:FOKES3, 2: POKESS+1,44 

FORJ=8T018:NEXTJ 

POKESZ, 2: POKES2+1, 1980: POKES3, 2: FPOKES3+1, 189 

NHEXTI: POKEFL, 8: FOKESZ+4, 9: POKES3+4,8: RETURN 

GOSUB1558:FRINT' DOUIWSIE TROTTEL HREEN DIE SGRLAKTIKAM ' 

PRINT" MABGESCHOSSEN. ":GOTO3198 

FORI=12T017 : FORJ=22T027 : POKE1824+J+49%1 , 1BZ : POKESSZ36+J+4@%K1,7:NEXTJ, I 
GUSUB. 408 : GOSUB1488 ' POKEV+21 , PEEK(Y+21)3-8:GOSUB1498 
PRINT"SGRATULIERE,MITTEN INS THYLIUM..." 

FORO=8TO1888 :NEXT:PRINT'® g 
FORI=12T017:FORJ=22T027 : POKE1024+J+48 #1, 32: NEXT, I 

TESCZH,ZV)=" ":POKEW+31,0:G0T01188 

IFDA>OTHEH3SSQ 

FORH=ITOAF : POKE19Z24+N+40%'7F , 38 : POKESSZIEHN+4OHTF , 13 

FORH1=8T028 : NEXTN1 :POKE1824+N+40W'T/F , 32: NEXTN 

FOKEV+21, PEEK(W+21>7-2: POKELBZ4+KF+4BH"TF , 182 : POKESSZIG+KF+A4OHYF , ı3 
GOSUJB14088 : FORN=BTOZOB : NEKTN - GOTO3SHQ 
FORN=ITOXFSTEP-1 : POKE1924+N+40MYF , 98 : POKESSZIG+HN+4DRYTF , 13 
FÜRNI=1TOZ8 : NEXTH1 : POKE1824+N+4@W'YF , 32: NEXTN 

FOKEV+Z1, PEEK(W+212-2: POKE1924+XF+40WF , 182: POKESSZIE+KF+AOHMYF , 13 
GOSUJB1488 : FORN=8T0288 : HEXTN: GOTU33090 

IFD'T>OTHEN365® 

FORN=ITOYF : POKE1824+XF +40 1, 98 : POKESSZIGHN+4OHYF , 13 

FORNI=BTOZB : NEXTNi : POKE1BZ4+XF+40M 1 , 32: NEXTN 

POKEV+Z21 ,PEEK(V+21)-2:POKE1824+XF+40YF , 182: POKESSZIG+HKF+AOHYF , 13 
GOSUB14088 : FORN=8TDZ288 : NEXTN : GOTO3388 
FORN=ITOYFSTEP-1 : POKE1924+XF+4BMI , 98 : POKESSZIE+KF+4@H 1, 13 
FORHi=1T028 : NEXTN1 'POKE1924+XF+40W 1, 32'NEXTN 
POKEV+Z1,PEEK(WV+21)-2:POKE1924+%XF+49W'YF ‚, 182 : POKESSZI6E+KF+AOMYF ‚, 13 
GOSUB1 486 : FORN=8T0288 : NEXTN : GOTO3888 

PRINT" UODDAS CHLONISCHE BASISSCHIFF HAT" 

PRINT"MSIE LEIDER ASGESCHOSSEN. " 'GOTO3188 


2546 FOKE1824+1+40MYF ‚67 :POKESSZI6+ +40 IF ‚7 
2350 IFFEEK<Y+31)24THEN3DSB | 
2351 IFPEEK(V+31)=16THEN3BSS 

2352 IFFEEKCW+31)=1THEN330Q 

2353 IFPEEKCV+31)=SANDLENGTESCZH, ZW) )=6THEN3498 

2354 IFPEEKCV+31)=SANDLENLTESCZH, ZW) )=1BOTHEN3ERD 

2368 FOKELGZ4+I4+40WYF , 32 

2578 NEXTI:RETURN 

3668 IFCX>255THENPOKEY+1S, FEEKCW+IG)I-4 

3002 J1=8 POKEV+31,0:POKEV+Z1, PEEKCY+Z1)-4:G0T03919 

505 IFEXR>ZSSTHENPOKENV+16, PEEKCY+16)-16 

>807 J2=8: POKEY+31,8: POKEY+Z1, PEEK(V+Z1)-16 

>816 FOKE1G24+XF+49%1, 102: POKESSZIS+HKF+4OHL, 7 

3828 GOSUB1 488 :FORJ=BTI209 : NEXT :P=P+1 

3638 POKE1824+KXF+49#1, 32: RETURN 

3858 IFCK>ZSSTHENPOKEV+16, PEEKCVW+16)-4 

3652 J1=8:POKEW+31,8:FOKEY+21, PEEKCW+Z1)-4: GOTO3O6B 











CATCH N’GOGO 


für den TI-99/4A 


ks. Es handelt sich um ein Spiel 
Joystick über den Bildschirm 


Das Programm läuft auf einem TI-99/4A mit Joystic 
für 2 Teilnehmer, die je eine Spielfigur mit dem 


bewegen. 


Spieler | kann doppelt so oft ziehen wie 
Spieler 2 und muß diesen einfangen. 
Dabei stehen bei jedem Spiel, dank 
RANDOMIZE, neue Hindernisse im 
Weg. Der Gejagte kann sich jedoch bei 
höchster Gefahr in ein Fragezeichen 
retten. was bewirkt, daß beide Spieler 
an irgendeiner Stelle des Bildschirms 
neu wieder auftauchen. Der Jäger kann 


diese Möglichkeit ebenfalls benutzen, 
wennihm der Abstand zu seinem Opfer 
zu groß erscheint. Doch nicht jedes 
Fragezeichen bringt die Rettung und 
schon garnicht dasselbe Fragezeichen 
zweimal. Die meisten verhalten sich 
wie gewöhnliche Hindernisse. 

Nach dem Titelbild des Programms 
und nach der Frage nach dem Weiter- 


machen am Schluß geht es durch 
Drücken auf den Feuerknopf weiter. 
Durch FCTN 4 (CLEAR) wird das Pro- 
gramm beendet. Durch einige Pro- 
rammiertricks, wie den Gebrauch des 
Befehls DEF Funktion, konnte erreicht 
werden, daß das Programm eine für 
BASIC recht schnelle Grafik besitzt. 


np 5 2 3 2 2 3 2 2 2 2 2 5 22; 
* CATCH N’GOGÜ %* 
FERIEN 
156 REM #KNOBLÜCH/WEBER# 
i4@ REM BE 2 2 3 3 2 3 3 2 2 2 2 2 2 2. 
156 DEF W=L-Y/4 

166 DEF Y=M+A/4 

irä DEF A=Z-Y/4 

15G DEF B=S+%/4 

13G DEF Q=(C=E)+cC=l>+l 

za6 DEF R=iC=F>+tC=l’tl 


iadg REM 
ild REM 
126 REM 


256 CALL CLEAR 
2938 CALL CHAR(E, "1895E725243CE404" ) 


aaa FOR I=2 TU 12 

>16 CALL CHAR(E2, "aass44adasiaaa1a") 

324 CALL CHAR«64. "4343FF2424FF9494" ) 

a4@ CALL COLORCI,Z,11?> 

356 NEXT I 

CALL COLOR(1.2,4) 

378 CALL SCREEN<E) 

386 FRINT :::" " 

394 PRINT " # CATCH N’ GOGO #" 

406 FRINT " 122 2 20 212,2.272/2.2,2.22.2  ZUESESEZE 

416 FRINT " ";CHRS<CEIS" --- DER JAEGER": :: 
426 FRINT " "SCHR$CF>:" -—- DER GEJAGTE": :: 
436 FRINT " ";CHR$(64);" --- EIN HINDERNIS": :: 
4468 PRINT " 7 --- DAS FRAGEZEICHEN 

445 PRINT " 72? VIELLEICHT 777° 3:5: 
456 RESTÜRE 

466 FOR I=1 TO 24 

470 RERD AR,EEB,CC 

456 CALL SOUND (AR,BB,CC) 

436 CALL KE'Y(1,Z,5) 

saa CALL KEYIZ2,Z,T) 

516 IF 5+T THEN 546 

526 HEAT I 

526 GOTO 456 

546 CALL CLEAR 

s56 CALL COLOR(S,16,5) 

566 PRINT a ee a Er ener 


BINGT DIE RETTUNG"®; 


ai a u IE RT FB ER 


5 
..—..— 6.) . EEE 1 1 1 1 0 0 
w 
an 
I) 
ru WERK K HH HE LK KM KH 5 

















Sa CALL SCREENG?) 
sea CALL HCHARCI.2.64, 31) 
S3G CALL HCHARG24,2,64,31) 


ee CALL YCHAR(Z,Z,64, 22% 
1 CALL YCHARG2, 32,64, 22) 
VCHAR«C2,31,32,22) 
CALL COLORCi,4,4) 
FRHOOMIZE 

FÜR I=1 TO 106 


Zr 
= 
EI = 
r 
— 


, 


— a 
u! — 


nu 


= 
a! 


NE=T I 
CALL CüLOpig,4,4) 
FÜR I=1.- 70085 


WOHIN 0) 


IT TI T T IT IT (T, 


rt 


J 
ı 
Kr) 
03 
> 
rm 
r— 
I 
1 
dm 
I: 
N 
— 
= 
= 
fr 


1. BEAT I 
FOR I=1 TO 25 


ı Pl 17 
zz l 


INN 


-- 
— 


‘46 NEXT I 

r56 CALL COLOR(4,186,14) 
r66 CALL COLOR(2,2,4) 
rr8 Z=Z1#RND+2 

rS40- S=25#RND+3 

r36 L=2Z1#RND+2 

sad M=2S#RND+3 

216 CALL HCHAR«(Z,S,E> 
Ss2z8 CALL HCHAÄR<L,M,F) 
356 CALL JOYST£J,%,Y) 
s48 CALL GCHAÄRCA,B,C) 
856 IF Q THEN 1566 

866 CALL HCHÄR(Z,S,D> 
s7a S= 

558 Z=A 

836 CALL HCHAR(Z,S.E> 
988 CALL JOYSTCK,%, 7) 
918 CALL GCHARCH,W,C) 
926 IF R THEN 1466 

3368 CALL HCHAR<L,M,D) 
2468 L=W 

35a M=Y 

968 CALL HCHAR<L,M,F> 
978 CALL JOWSTCJ,%,V) 
958 CALL GCHARCA,B,C> 
9336 IF @ THEN 1566 

1866 CALL HCHAR(Z,S,D> 
1616 5=E 

1826 Z=A 

1838 CALL HCHAR(Z,S,E>» 
1848 P=P+J 

18568 GOTO 836 

1868 IF C<63 THEN 1696 
1878 CALL SOUND<-28, 446,6) 
1086 GOTO 836 

1896 IF C<>62 THEN 1158 
1188 CALL SOUND(-S588, 524,6) 
1118 CALL HCHAR<(WU,Y,63) 
1128 CALL HCHAR(Z,S,D)» 
1138 CALL HCHAÄR (L,M,D) 
1148 GOTO 776 

1156 CALL HCHAR(Z,S,D> 
1168 CALL COLOR (8, 16,7) 
1178 CALL HCHAR(L,M,88) 


1186 CALL SOUND<56, 262,6, 330, 1,392,2) 


1198 CALL SCREEN<(11) 
1266 CALL CLEAR 

1218 FOR 1=2 TO 12 
228 CALL COLOR(I,2,1> 


CAHLL HEHARCZIHRND+2, 23#FEND0+2, 64) 


5 e DS#RND+3,62) 


CALL HEHÄRCEI#HRNIO+Z, SS#FEHNI+3, 62) 





























H-II/HA 


12560 
1244 


So a 


DON EN 1. 


- 
pr 


ILL LO ID 


ff de Di fee (ae 
DIN DH 


1546 
1516 
1520 
1538 
1548 
1556 
1568 
1578 
15586 
1596 
1664 
1614 
1626 
1636 
1646 
1656 
16668 
1676 
1630 
1694 
1706 
1718 
1720 
1736 
1746 
1758 
1766 
1778 
1736 
1738 
1346 
1318 
1820 
1336 
1348 
1856 
1566 
1876 
1350 


A FRINT 
>55 FRINT HI: 
A CALL SOUND « 1066, 262) 4, 


ı FOR I= 
A K=-K 

1 CALL SCREEN(S-K) 
A NEXT I 





NEXT I 
IF F<HI THEN 1356 


"GESCHAFFT NACH" ;P; "RUNDEN 


S>u, 1, 392,2) 
CALL Se 330, 0.392. 1,52 | 
CALL SOUND<26AG, 392.0,524, 1, 
RESTÜRE 

FÜR I=i TU 29 

RERD AR,EE,CC 

CALL SOUNDCAR,BE,CC) 
CALL KEY(1,2,9) 

CALL KEY(Z,2;T? 

IF 5+T THEN 2786 
NEXT I 

GOTO 1296 


222222: "GESCHAFFT NACH" ;P 3; "RUNDEN" 
PRINT ::::"WOLLEN SIE WIRKLICH NOCHMAL? 
CALL SOUND<1000, 262. 8.330, 1,392. 2) 

FOR I=1 TO 27 

K=-K 

CALL SCREEN<S-K) 


ä NEAT 


I 
CALL SOUNIC1EG8, 330,8,392,1,524,2) 
1 TO 27 


CALL SOUNDCZaGG, 392, 6,5924, 1.660,22 
FÜR I=1 TO 54 

K=-K 

CALL SCREEN(3-K) 
NEXT I 

GOTO 1296 

IF C{s3 THEN 1696 
CALL SOUND«-2Z&, 440,0) 
GOTO 386 

IF C<>62 THEN 1156 
CALL S0UND<-Sad, 524,6) 
CALL HCHAREA,B,6S3>) 
CALL HCHAR(CZ,5;,DD 
CALL HCHAR<L.M,D? 
GOTO 7768 

DATA 366,349,6 
IATA 366, 446,6 
DATA 346,529,6 
DATA 666, 53932,6 
DATA 25, 262,6 

IATA 25, 262,6 
DATA 58, 262,6 

DATA 366, 116,36 
DATA 366, 349,6 
DATA 366,446,06 
DATA 366,524,6 
DATA 646, 332,6 
DATA 25, 262,6 

DATA 25, 262,6 
DATA 54, 262,6 
IATA 366, 116,36 
DATA 340,332,06 
DATA 366, 349,6 
DATA 386, 2934,6 
DATA 666, 262,6 
DATA 25, 262,06 
DATA 25, 2862,06 
DATA 58, 262,6 
DATA 568, 116,36 


a 


"WÜLLEN SIE WIRKLICH NCCHMAL 7" 


"BESTLEISTUNG WAR”; 


"NEUE BESTLEISTUNG" 

















Raumschiff Enterprise 
für den TI-99/4A 


Ziel wares, ein TI-Basic-Programm zuentwickeln, dasprofessionell aufgebaut, 
Schnelligkeit und anspruchsvolle Grafik miteinander verbindet. Dieses Programm ist 
jedem TI-99/44 Besitzer zugänglich, und zeigt andererseits vielen Kritikern, daß nicht 
unbedingt Extended Basic notwendig ist, wenn man nur die Möglichkeiten von TI- 
Basic erkennt und ausnutzt. - Das Spiel stützt sich auf die bekannte Serie 
"Raumschiff Enterprise”. 


Sie müssen feindliche Klingonen- 
schiffe vom Beschuß zweier unbewalff- 
neter Raumstationen abhalten. Für je- 
den Treffer erhalten Sie 100 Punkte. 
Wird aber eine der Raumstationen ge- 
troffen, werden Ihnen 100 Punkte abge- 
zogen. Gelegentlich tauchen zwei Klin- 
gonenschiffe unterhalb der 
Raumstationen auf. Sinken Sie in 
diesem Fall sofort (Fernbedienung ein- 


100- 360 Zeichendefinitionen 
370- 480 Farbverordnungen 


fach nach unten) und setzen Sie Ihre 
Laserkanonen ein. Wenn Sie wieder 
steigen, beginnt die nächste Runde, 
(Wenn Sie sich während eines Spiels 
ausruhen wollen, können Sie das an 
dieser Stelle tun. Erst wenn Sie gestie- 
gen sind, erscheinen neue Klingonen. 
Drücken Sie einfach die Alpha-Lock- 
Taste, und kein "Unbefugter” kann für 
Sie weiterspielen). 


490- 610 AS waagrecht oder senkrecht zeichnen. 


620- 680 Waagerechter Enterprise-Laser 


690- 760 Enterprise zeichnen 


Wenn Ihnen die Energie für Ihre 
Photonentorpedos und Laser ausge- 
gangen ist, bewertet der Computer Ihre 
Leistung. Übrigens: Keine Angst! In- 
zwischen können sich dıe Raumstatıo- 
nen, dank eines Umbaues, selbst verteı- 
digen. Falls dieses System einmal aus- 
fallen sollte, starten Sie einfach erneut 


das Programm und übernehmen Sie 
die Verteidung. 


770-1510 Titelbild zeichnen (Enterprise bewegen und Abfrage, Erläuterungen, Spielbeginn). 


1520-1750 Erläuterungen 
1760-1850 Schwierigkeitswahl 
1860-2130 Zeichendefinitionen 


2140-2430 Zeichnen (Sterne, Raumstationen) 


2440-2520 Farbzuordnungen 


2530-3310 eigentliches Spiel (Abfrage, Fernbedienung, Firetaste, senkrechter Laser) 


3320-3570 Klingonen (neues Schiff erscheinen lassen oder:) 


3580-3920 Klingonen-Laser 
3930-3980 Klingonenschiff zeichnen 


3990-4750 Kingonenschiff unter Raumstationen 


4760-4880 Enterprise-Fanfare 
4890-5120 Ende 


Die Variablen Z,Z1,22,23,Z0 werden 
in FOR.NEXT-Schleifen und ähn- 
lichen, universellen Anwendungen be- 
nutzt Die Variablen-Spalte, Zeile, 
Länge erklären sich selbst. Auf REM- 


Zeilen und der Möglichkeit, das Pro- 
gramm wieder von vorne zu starten 
(alle Variablen müssen = 0 gesetzt wer- 
den), wurde aus SDELDerP An den 
zugunsten vieler Details verzichtet. 


(Versuchen Sie ruhig einmal, auf die 
Raumstationen zu schießen, oder 
schießen, wenn kein Klingonenschiff 
da ist,der Computer ignoriert dies nicht 
(wie üblich)! 











REM === RAUMSCHIFF == === ENTERPRISE === ==TEXAS T1-99/4A 


== =1 9Bi===PATRIT SCHMITZ= 48 REM. -UNKELBACH 
CALL CLEAR 

120 CAL SCREEN (2 

150 CALL CHAR (64, "384492A2A2924438") 


140 CALL CHAR(95,"”) 
150 CALL CHAR (39, "FF") 


| 160 CALL CHAR (33, 00202070702") 
170 DATA ÜOFFFFFFOEOEOEOE , VEOEOEOEOEOEOEOE,, OEOEOEOEOEOEOEOE , O0OETETE707070707,070 
7070707070707 .0707070707070707 


180 DATA 0001070707070707,0707017070000000, 0000000000070707 ,O0FOFCFCILICICIE, FÜF 
CFCICICICICIC, 1C1C1 CICICFOFCFE 

190 DATA 003EFFFFE3 ESES ES, FFFFIFOS03030303, 0O303030303FFFFFF ,„0000808080808181,818 
585838685858C, 8D8D999898B0OBORO 

200 DATA OO6F6FCFDEDBFBB3, B333636363C3C3C3, FFFFFFO303030303, 0081818183838383, 878 
787B7BEBEBEBE , DFDFDFYFBBRBBBREB 

210 DATA OOFBFBFBFC9IC9ILCIHC , OEOEOEOE07070707 , FFFFFFFF01010101 ,0000000000000000 , 000 
0000000000000, B0808080C0LC0C0C0 
220 FOR 1=128 TO 157 

230 READ Z$ 

240 CALL CHAR(Z,Z$) 

250 NEXT Z 

260 BS(1)="FF7F" 

270 B$(2)="FCFE402010080402" 
280 B$ (3)="00017FFF7F214080" 
290 B$ (4) ="00BOFEFFFEB" 

300 B$ (5)="070F" 

310 B$(6)="EOF" 

320 FOR Z1=95 TO 119 STEP 8 
330 FOR Z=1 TD & 

340 CALL CHAR (Z1+Z,B$(7)) | 
350 NEXT Z 

360 NEXT 21 

370 CALL COLOR(1,12,2) 

380 CALL COLOR(2,16,5) 

390 FOR 2=3 TO B 

400 CALL COLOR(Z,16,7) 

410 NEXT Z 

420 FOR Z=9 TO 12 

430 CALL CDLOR(Z,2,2) 

440 NEXT Z 

450 FOR Z=13 TD 16 

460 CALL COLOR(Z,9,2) 

470 NEXT Z 

480 GOTO 770 

490 ZEILE=VAL (SEG$ (A$, 2,2) ) 

500 SPALTE=VAL (SEG$ (A$,4,2)) 

510 IF SEGS(A®,1,1)="H" THEN 570 

520 FOR Z=6 TO LEN(AS) 

530 CALL HCHAR(ZEILE,SPALTE,ASC(SEG$ (A$,7,2))) 
540 ZEILE=ZEILE+1 

S50 NEXT Z 

560 RETURN 

570 FOR Z=6 TD LEN(AS$) 

580 CALL HCHAR(ZEILE, SPALTE,ASC(SEGS$ (AS, 7,1))) 
590 SPALTE=SPALTE+1 

600 NEXT Z 

510 RETURN f 

620 LAENGE=19 

630 CALL HCHAR(ZEILE,9,39,LAENGE) 

640 FOR 2=0 TO 7 

650 CALL SDUND(-100, 1000, 2,990,27,1010,2) 

660 NEXT Z 

670 CALL HCHAR(ZEILE,9,32,LAENGE) 

680 RETURN 

690 FOR Z=SPALTE TO SPALTE+3 

700 CALL HCHAR (ZEILE, Z, ZEICHEN+ZO) 





NCC- — 20 7 


6.8 ENTERPRISE — 














7/10 20=70+1 

720 NEXT Z 
730 CALL HCHAR (ZEILE+1, SPALTE+1, ZEICHEN+4) 
740 CALL HEHAR (ZEILE+1,SPALTE+2, ZEICHEN+5) 
750 ZO=0 

750 RETURN 
7//9 FOR Z=1 TO 7 
/80 CALL HCHAR(Z,3,42,28) 
7/90 NEXT 72 
800 FOR Z=22 TD 24 
810 CALL HCHAR(7,5,42.28) 
820 NEXT Z 
950 FOR Z=3 TO 28 STEP 25 
840 FOR Zi=7Z TOD 7+2 

SO CALL VCHAR(1,21,42,24) 
8650 NEXT 21 
870 NEXT Z 
880 FOR Z=12 TO 21 
870 FOR Zi=3 TO 5 
700 CALL HCHAR(Z1,72,89+71+7%#3) 
10 NEXT 71 

20 NEXT 7 
750 CALL HCHAR(4,4,95,8) 

740 As="V0404_TEXAS_INSTRUMENTS_" 
750 GOSUR 490 

760 CALL HCHAR(4,22,95,7) 

9709 As$="V0429_TEXAS_INSTRUMENTS_" 
980 GOSUB 490 

990 As="H2504__6_1983_PATRICK_SCHMITZ__" 
1000 GOSUB 490 

1010 As="H0905_RAUMSCHIFF _” 

1020 GDSUB 490 

1050 As="H101&_ENTERPRISE_" 

1040 GOSUB 490 

1050 FOR ZEICHEN=9& TO 120 STEP 8 

1050 ZEILE=i2 

1070 SPALTE=ZEICHEN/2-42 

1080 GOSURB 590 

1090 NEXT ZEICHEN 

1100 As="H1510 I>ERLAEUTERUNGEN" 

1110 GOSUB 490 

1120 As="H1710 2>SPIELBEGINN___" 

1150 GOSUB 490 

1140 CALL COLOR (9,16, 2) 

1150 GOSUB 4760 

1150 CALL SDUND (100, 40000, 30) 

1170 GOSUB 4810 

1180 FOR Z=10 TO 12 

1190 CALL COLOR(Z-1,2,2) 

1200 CALL COLOR(Z,16,2) 
1210 GDSURB 1290 
1220 NEXT Z 
1250 FOR Z=11 TO 9 STEP -1 
1240 CALL COLOR (Z+1,2,2) 
1250 CALL COLOR (Z7,18,2) 
1250 GOSURB 1290 
1270 NEXT Z 
1280 IF Z2=10 THEN 15380 ELSE 1180 
1290 IF 22=10 THEN 1550 
1500 CALL KEY(0,KEY,STATUS) 
1S10 IF (KEY=49) +(KEY=S0)=-1 THEN 1320 ELSE 1350 
1320 72=10 
1SS0 CALL SOUND (-50,330,4,220,4) 
1340 CALL SOUND(-50,330,4,440,4) 
1SS0 RETURN 
1550 FOR ZEICHEN=104 TO 112 STEF 8 
1370 SPALTE=& 











ui" Age 








1580 ZEILE=ZEICHEN/4-1?2 

15970 GOSUR 690 

1400 NEXT ZEICHEN 

1410 CALL HCHAR (12,10,32, 15) 

1420 CALL HCHAR (13,10,532,15) 

1450 CALL COLOR (9,2,2) 

1440 CALL COLOR (10,16, 2) 

1450 ZEILE=15 

1460 GOSUE 4520 

1470 CALL COLOR (10,2,2 

1480 CALL COLOR (11,16,2) 

1490 ZEILE=17 

1500 GOSUB 520 

1510 IF KEY=50 THEN 1760 

1520 CALL CLEAR 

15350 FOR Z=2 70 8 

1540 CALL COLOR (Z,16,2 

1550 NEXT Z 

1560 PRINT "DER WELTRAUM -": :" UNENDLICHE WEITEN.": :"WIR SCHREIBEN DAS JAHR 22 

00.": :"DIES SIND DIE ABENTEUER DES" 

1570 PRINT : "RAUMSCHIFFS ENTERPRISE „": ="DAS MIT SIENER 400 MANN": :"STARKEN B 

ESATZUNG 5 JAHRE": ; 

1580 PRINT "LANG UNTERWEGS IST, UM"; : "NEUE WELTEN ZU ERFORSCHEN, ": » "NEUES LEBE 

N UND": : "NEUE ZIVILISATION. ": TAB (26) 5 ">>" 

15970 GOSUB 4750 

1500 GOSUB 1720 

1510 PRINT "VIELE LICHTJAHRE VON DER": : "ERDE ENTFERNT DRINGT DIE": : "ENTERPRISE 
IN GALAXIEN VOR," 2 2 

16820 PRINT "DIE NIE EIN MENSCH ZUVOR": :» "GESEHEN HAT. "s 3 3 =TAB(24), ">>" 

16830 GOSUB 4810 

1640 GOSUB 1720 

1650 PRINT "##SPIELREGELN#x": :"FEINDLICHE KLINGONSCHIFFE VERSUCHEN ZWEI FRIED 


LICHE FORSCHUNGS-RAUMSTATIONEN DER FOEDERATION DER VEREINIGTENPLANETEN ZU ZER 
STOEREN. " 

1660 PRINT "IHR AUFTRAG IST ES, DIES MITDER ENTERPRISE ZU VERHIN- DERN. WENN S 
IE IHRE PHOTONENTORPEDOS NICHT RECHTZEITIG EINSETZEN, BEGINNEN DIE " 

1670 PRINT "KLINGONEN DEN BESCHUSS DER RAUMSTATIONEN. GELEGENTLICH ERSCHEINEN 7 
WEI KLINGON-": "SCHIFFE UNTERHALB DER RAUM- STATIONEN. SINKEN SIE IN" 

1680 PRINT "DIESEM FALL SOFORT UND ZER- STOEREN SIE DIE KLINGON-": "SCHIFFE MIT E 
INEM LASER-":"STRAHL. NACHDEM SIE WIEDER GESTIEGEN SIND, BEGINNT DIE" 

1690 PRINT "NAECHSTE RUNDE. "; TAR(27)5 ">>" 

1700 GOSUB 1720 

1710 G0TO 1810 

1720 CALL KEY(0,KEY,STATUS) 

1730 IF STATUS=0 THEN 1720 

1740 CALL CLEAR 

1750 RETURN 

1760 A$="H1710 VIEL_ERFOLG" 

1770 GDSUB 490 

1780 FOR Z=1 TO 150 

1790 NEXT Z 

1800 GOSUB 620 


1810 CALL CLEAR 
1820 PRINT " SCHWIERIGKEITSGRAD:": : :TAB(B);"1> EINFACH": :TAB(8);5"2> E S 


CHWER": :TAB(B)5"3> SUPERSCHWER": ı ı ı 3 2 3 
1830 CALL KEY(0,LE,STATUS) 

1840 IF (LE=49)+(LE=50)+(LE=S1)=0 THEN 1830 

1850 CALL SOUND (100,220,0,247,0,262,0) 

1860 CALL CLEAR 

1870 FOR Z1=127 TO 135 STEP 8 

1880 FOR Z=1 TO & 

1890 CALL CHAR(Zi+Z,B$(2)) 

1700 NEXT Z 

1910 NEXT Z1 

1930 DATA 00707070180C0605, 000000183C7EFFED, 000E0EOE13060C, 0304001830303, 3C3C18 
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ı 1 READ- N 
1950 CALL CHAR (Z+87,B$(2)) 
172% NEST z 

ESTOR IE a 





0 000 9001, 3 ee ee 

2 DATA FIFSFICCDSESESTE, S7F ,008C 60: 

2019 FOR 'Z=14ä70 159° DR wire an 

READ 2 

ER NEXT Z 

2650 CALL CHAR (58, ' "FFEFFFZESFIFFFFFF") 

2060 CALL CHAR (59, "FFFFEFFIFFFFFFFF") ui) 

2070 CALL CHAR (60, EBENE ZESEZEREERE 
2080 CALL CHAR (&i,"FFFFI F") 

2090 CALL CHAR (84, u) 

2100 CALL CHAR (94, "04104004209401") 

2110 CALL CHAR(95, "A8412448B22C485C") 

2120 CALL CHAR (62, "DD77DSBDADF7BF7&") 

2130 CALL- CHAR (38, "1818181818181818") 

2140 FOR Z=2 TO 16 

2150 CALL 22 2) 

2160 NEXT Z 

2170 RANDOMIZE 

2180 FOR Z=1 TO S#RND+50 

2190 CALL HCHAR(INT( JSaEnD) +4, INT (25*RND) +5, INT (4«RND) +58) 

2200 NEXT Z 

VCHAR (1,3,42,24) 

VCHAR (1,30,42, 24) 

HCHAR(1,3,42,28) 

2240 CALL HCHAR (3,3, 42,28) 

2250 FOR Z=21 TO 24 

2260 CALL HCHAR(Z,3,42,28) 

2270 NEXT Z 

2280 As=' "HO205%**RAUMSCHIFFSSENTERFRISE* x 

25300 A$="H2206RUNDE* *#PLINKTE***LASER" 





















2310 GOSUB 490 

2330 FOR ZEICHEN=96& TO 154 STEP 8 
2340 SPALTE=ZEICHEN/2-44 

2350 GOSUB 590 

2370 FOR Z2=12 TO 15 STEP 4 

2380 FOR Zi=1 TO 4 

2390 FOR Z=1 TO 4 


2400 CALL HCHAR (9+22/4+21, 22+7, 139+7+71*4) 
2410 NEXT Z 

2420 NEXT Z1 

2430 NEXT 72 


2440 CALL COLOR 25 16, 5) 
2450 CALL COLOR(3,2,15) 
2460 CALL COLOR(4,2,15) 
2470 FOR Z=5 TO 7 

2480 CALL COLOR (Z,16,7) 
2490 NEXT Z 

2500 CALL COLOR(8,4,2) 
2510 CALL COLOR(15,8,2) 
2520 CALL COLOR(16,8,2) 
2530 RUNDE={ 

2540 A$="H2I0B1 #84 0008#n##0450)". 
2550 GOSUB 490 

2560 LASER=50 

2570 EPOS=9 

2580 CALL COLOR (9,16,2) 
2590 Z0=0 





















ZEN er, 
2e10 IF BES IDEN 670 


ae an 2760 
2750 opt HCHAR (25, 26, 42) 
2760 IF LASER=0 THEN 4890 





2870 IF EPOS#*4-30<>KPOS1 (Z)THEN 2950 
2880 SPALTE=KPOSI (Z)+1 

2890 IF (SPALTE=1S)+(SPALTE=19)=-1 THEN 2920 
2700 LAENGE=8B 









TE=EPOS*4-29 

2990 IF (SPALTE=15)+(SPALTE=19)<>-1 THEN 3030 
3000 LAENGE=8 

3010 73=9 

3020 G0TO 3050 

3030 LAENGE=15 

3040 Z3=10 

S0S0 CALL VCHAR(6,SPALTE, 33, LAENGE) 

5060 FOR Z1=0 TO B STEP 2.5 

35070 CALL SOUND (-100, 1000, 21,990, 21,1010, 21) 
S080 NEXT Zi 

3090 CALL VCHAR (6, SPALTE, S: „LAENGE) 

3100 IF Z3=10 THEN 3300 

3110 IF 23<>9 EN 5170 
3120 CALL HCHAR (LAENGE+SPAL TE/2.6,SPALTE, 62) 
Ss130 CALL ST 0, 120,0,130,0) 
5140 CALL SOUND (-300, 7,0) 
3150 CALL HEHAR (LAENGE+SPALTE/2.6, SPALTE, 150) 
3160 GOTD Ss860 
3180 CALL ch -5,0) 
3190 CALL VCHAR (LAENGE+6, SPALTE, 32,2) 
3200 FOR 20=94 TO 32 STEP -62 
3210 FOR Z1=SPALTE-1 TO SPALTE+i STEP 2 
3220 CALL VCHAR (LAENGE+6, Z1,20,2) 
3230 CALL SOUND(-200, (SPALTE-Z1=1)-6,0) 
3240 NEXT Zi 
3250 NEXT ZO 
3250 IF UNTEN<>O THEN 4340 













































5270 PUNKTE=PUNKTE+100 
S280 A$="H2S1F"LSTRE (PUNKTE) 
5290 GOSUB 490 


5300 73=0 
S310 GOTO 2600 
53520 IF KPOSi(1)<£>0 THEN 3580 


3330 IF KPOS1(2)<>0 THEN 3400 
3340 FOR Z=1 TO ZAHL 

3350 IF KFOS(Z)=0 THEN 3460 

SS60 IF (KPOS(Z)=14)+(KPOS(Z)=18)=-1 THEN 3370 ELSE 3390 
3370 Z0=11 

3380 GDTD 3400 

3390 Z0=14 

3400 CALL HEHAR(9,KPOS(2),32,3) 

5410 CALL HEHAR(10,KPOS(Z),32,3) 

3420 GOSUR 3930 

3430 KPOS1 (Z)=KPüs(z) 

3440 KPOS(Z)=0 

3450 20=100 

3460 NEXT Z 

3470 IF Z0=100 THEN 2590 

3480 IF RN>4 THEN 3990 

3490 RN=RN+1 

3500 ZAHL=INT (2*RND+1) 

3510 FOR Z=1 TO ZAHL 

3520 KPOS(Z)=INT (A*#RND+1) #4+2 

3530 IF KPOS(1)=KPOS(2)THEN 3520 

3540 20=9 

3550 GOSUB 3930 

3560 NEXT Z 

3570 GOTO 2400 

3580 Z=1 

3590 GOTO 3610 

3600 Z=2 

3610 CALL COLOR(1,10,2) 

3620 ON KPOS1 12) /4-.5 GOTO 3630, 3650, 3670, 3670, 3750,3770 
3630 LASER$="160903204156 13" 

3640 GOTO 3780 

3650 LASER$="15131520115314" 

3660 GOTO 37890 

3670 CALL VCHAR (13,134 (KPOSI (Z)/4-3)%4,38,2) 

3680 CALL SOUND (-50,-3,0) 

3690 CALL SOUND (-50,-3,5) 

3700 CALL VCHAR (13, 13+(KPOS1 (Z)/4-3)*4,32,2) 

5710 CALL HCHAR(10+KPOS1 (Z)/4, 13+(KPOS1(Z)/4-3)*4,62) 
3720 CALL SOUND (-500, 110,30, 110,30,5000,30,-8,0) 

3730 CALL HCHAR(10+KPDS1 (Z)/4, 13+(KPOS1(Z)/4-3)*4, 150) 
3740 GDTO 3850 

3750 LASER$="16210320115520" 

3760 GOTO 3780 

3770 LASER$="16200320615520" 

3780 CALL HCHAR (VAL (SEG$ (LASER$, 1,2)) ‚VAL(SEG$ (LASER$,3,2)) ‚39, VAL (SEG$ (LASER$, 8 
‚2))) 

3790. CALL SOUND (-50,-3,0) 

3800 CALL SOUND(-50,-3,5) 

5810 CALL HCHAR (VAL (SEG$ (LASER$, 1,2) ) ,VAL(SEGS(LASER$,3,2)) ‚VAL(SEG$ (LASER$,5,3) 
) VAL (SEG$ (LASER$,B,2))) 

3820 CALL HCHAR (VAL (SEG$ (LASER$,1,2)),VAL(SEG$ (LASER$,13,2)) ,62) 

3830 CALL SOUND (-500, 110,30, 110,30,5000,30,-8,0) 

5840 CALL HCHAR (VAL (SEG$ (LASER$, 1,2) ) VAL (SEG$ (LASER$, 13,2)) ‚VAL(SEG$ (LASERS, 10, 


3))) 
3850 CALL COLOR(1,12,2) 

' 3860 PUNKTE=PUNKTE-200 

3870 IF PUNKTE<O THEN 3890 

3880 IF PUNKTE>1000 THEN 3910 ELSE 3900 
3890 PUNKTE=O 

3900 CALL HCHAR (23, 18,42) 














s910 GOTO 328C 
s920 GOTO 2&0C 
Ss930 FOR Z1=70 TO 70+1 
>s940 FOR Z2=KPOS(Z)TO KPOS(Z) +2 
sS950 CALL HCHAR (Z1,22,88+1(71-20) #3+72-KPOS(2Z)) 
s960 NEXT Z2 
5970 NEXT 21 
5780 RETURN 

| 53990 RN=O 

| 4000 FOR Z1=15 TO 18 STEPS 
4010 FOR Z2=19 TO 20 


A ı 


4020 FOR Z3=Z1 TO Zi+2 

| 4030 CALL HCHAR(Z2,23,3143#22+23-71) 

| 4040 NEXT Z3 
4050 NEXT 72 
4060 NEXT Z1 
4070 CALL JOYST(1,X,Y) 
4080 IF (X=0)+(Y=-4)=-2 THEN 4090 ELSE 4160 
4090 CALL HCHAR (5, EPOS#4-32, 32,4) 
4100 CALL HCHAR (6, EP0S#4-32,32,4) 
4110 Z0=0 
4120 ZEICHEN=EPOS#8+24 | 
4130 ZEILE=19 | 
4140 SPALTE=& | 
4150 GOSUB 690 
4160 CALL KEY(1,KEY,STATUS) 
4170 IF (KEY=18)+1(Z0=0)<>-2 THEN 4380 





4350 UNTEN=S50 


4180 LASER=LASER-1 Der ae 
4190 IF LASER<>9 THEN 4210 ee 
4380 IF Z00=1 THEN 4620 | 
4200 CALL HCHAR (23,26, 42) R 
uunK en 4390 IF RND<.5 THEN 4070 | 
4210 A$="H2325"LSTR$ (LASER) | 
4220 GOSURB 490 4400 PUNKTE=PUNKTE-200 
4230 .IF LASER=0 THEN 4890 4410 IF PUNKTE<O THEN 4430 | 
4240 IEILE=20 4420 IF PUNKTE>1000 THEN 4450 ELSE 4440 
4250 LAENGE=12 a TE | 
4260 7E"308651 THEN 2080 4440 CALL HCHAR(23,18,42) 
z 4450 A$="H2315"&STR$ (PUNKTE) 
4270 LAENGE=21 
4460 GOSUB 490 
4280 GOSUB 630 
£ 4470 CALL COLOR(1,10,2) 
4290 IF Z00=1 THEN 4620 
z 4480 CALL VCHAR(17,19,38,2) 
4300 UNTEN=100 
= 4490 FOR Zi=0 TO 6 STEP 2 
4310 LAENGE=13 
n 4500 CALL SOUND (-100,110,21) 
4320 SPALTE=1& > | 
4330 GOTO 3170 DEEP an ve f | 
4340 IF UNTEN=50 THEN 4580 3320 EALE. VEHARI17,19,32,2) 


4530 CALL HCHAR(17,19,62) | 
4540 CALL SOUND (-500,110,30,110,30,5500, 30, -8,0) 
4550 CALL HCHAR(17,19,158) 

4560 CALL COLOR(1,12,2) | 
4570 GOTO 4070 

4580 UNTEN=O 

4590 RUNDE=RUNDE+1 

4600 A$="H2308"&STR$ (RUNDE) 
4610 GOSUB 490 

4620 700=1 

4630 Z20=0 | 
4640 CALL JOYST(1,X,Y) | 
4650 IF (X=0)+(Y=4)=-2 THEN 4660 ELSE 4160 

4660 CALL HCHAR(19,6,32,4) 

4670 CALL HCHAR (20,6,32,4) 

46580 170=0 

4690 ZEILE=S 
4700 SPALTE=EPOS#4-32 
4710 ZEICHEN=EPOS#8+24 
4720 GOSUB #90 

4730 IF LASER=0 THEN 4900 
4740 100=0 

4750 GOTO 2600 
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Antares 


Antares - ein Weltraumspiel in gutem Basic und ebenso guter Grafik. Das Programm 


unterteilt sich wie folgt: 












|) Das von Ihnen gesteuerte Raum- | zubauen und zum Raumschiff zu er eine Felsschlucht ge 
schiff muß auf einem vorgegebenen | bringen. steue f 
Platz sicherzurLandunggebrachtwer- | Sind diese drei Aufgaben erfüllt, | UmIhnen eng m ron 
den. kommt der schwierigste Teil des nung beim Eintippen des wer Bw 
2?) Danach müssen Arbeiter und | Unternehmens: Bevor Sie auf dem | zu DE UHER: nn wir jetzt lieber 
vorhandene Hilfsmittel in das | Planeten landen nichts wei r verrale 
Raumschiff geladen werden, um und Ihren Auftrag als beendet betrach- | Viel Spab! 
3) im Weltraum Krypton zu finden, ab- | ten können, muß das Raumschiffunbe- 
1215 PRINT AT L1-1,L32; @ 
1 GOSUB 9088 NT AT L1+1,1L2; 8 R 
3 SL.OoU 1517 IF l1= 15 AND L2>=12 AND L2< 
4 Ci =14 THEN GOTO 1588 . 
5 LET He=I Terre een < 1218 IF L1i=15 AND (L2<>12) AND ( 
-— ke de dor ee ANTARES i- i- L2<>13) AND (L2<>14) THEN GATO 1 
= - a Si - Be IE <- BY HOLGER HU 7208 
BER <- - t- ZUM SPIELS 1219 PRINT AT L1,L2; BEER. 
TART NEULINE DRUECKEN <= <= = < 1238 LET L2=L2+(INKEY$=' ) - (INK 
= (= (- Ka ug —" EY$='"W) on 
“s LET 5 1232 PRINT AT 15,11; "EB"; TAB 15; 
R 8,0;6G%# 1225 LET Li=L1+(RND<.S)I -(RND>.7?) 
15 PRINT AT_12,8;6$ 1227 PRINT AT L1-1,L2;' 
e8 FOR S=1 TO LEN H$-351 1229 PRINT AT L1+1,L2; R 
25 PRINT AT 18,8; H$(S TO 5+351) 1238 IF L1=18 AND ER - AND L2< 
>08 ER INKEYS<>"" THEN GOTO 45 12350BiF L1=-15 AND L2>=12 AND L2< 
35 NEXT =14 THEN GOTO 15988 
48 GOTO 28 1548 IF L1=18 AND (L2<>12) AND ( 
a - ur L2<>13) AND tL2<>14) THEN GOTO 1 
5 RINT AT 2, 2, "BEI DIESEM SP 788 
IEL GEHT ES DARUM", IM AUFTRA 12580 LET M=M-2 
G DER U.S.T.",,, {=UNITED STAR 1288 IF Li=1 THEN LET Li=2 
NS) TRADE) ",,,” AUF EINEM BESTIMM 1298 IF L2=1 THEN LET L2=2 
TEN" A PLANETEN MOEGL ICHST vI 13588 IF _ L2=27 THEN LET L2=26 
RR F: KRYPTON ABZUBRUEN.' 1518 GOTO 1288 
DIE ABBARUMENGE ERRECHNET sIien" 15808 REM +++ LEITSTRAHL Er 
EN, RAUS VERSCHIEDENEN FAKTOREN 1585 PRINT RT 15,12," : 
Al WIE Z.B. KRYPTONVORKOMME 19,12; ” ‚AT ‚el: et 
Bi “ "ROBOTERANZAHL ETC. ;AT 21,12; " 
s5’IrF INKEY$="' THEN GOTO 55 1518 FOR 5 To pn 
so 1539 PRINT AT 19,14; "WE"; AT 19,1 


ELS 
65 PRINT AT 4,2, "DOCH ZUERST M 
VESSEN'",,,‚," SIE EINMAL AUF DEM“ 
»>»3° LANDEFELD VON GAMMA-CITY"”, 
‚;" LANDEN ,UM MASCHINEN , ROBOTER 
ER ya INGENIEURE UND PROVIANT 


ICHt”;,,"__EINFACH WERDEN,DA IHR 
E",,."' "STEUERUNG DEFEKT IST." 
78 IF INKEYS="" THEN GOTO 7@ 


58 PRINT AT 4,2; "STEUERN SIE 


HR RAUMSCHIFF" , MIT DEN TAst 
EN:? PER W (=LINKSI ", "O0 (=REC 
HTS)I)",,," 5 c(€=UNTEN) "," UL (=0B 


EN) ’;AT 18,6; "VIEL GLUECK. .„." 
55 a KEY$="" THEN GOTO 55 


REM ### LANDUNG ### 
cLS 












LET L1=3 

LET L2=L1 

FAST 

FOR 5=8 TO 185 
INT G$ 


Eu 8;V$ 
INT (RND#186) ,INT ({ 


111 

1128 SLOW 

12882 REM ### SPACE-5SH ## 
1285 PRINT AT L1,L2; r 

87 PRINT AT 18,11; AB 18; 


M LET Li=L1+(INKEY$="S5") - (INK 
ie13 Ler L2=L2+(RND<.S) -{RND».7) 









4; 
1568 "NEXT S 
1565 PRINT Dur ia ech "u 


O 5® 
>55 PRINT AT 228,14; "WM; AT 208,1 


.. 
168 EXT S 
1612 FAST 
1528 CLS 
1638 PRINT AT 3,3; "BRAVO,",; AT 5, 
6; "SIE HABEN ES a re sat ı 
5; "GELD= ; soL 


= M; 
1648 SLOU a 


1645 IF INKEY$="" THEN GO - 
1650 ren So00 ih ee 


1785 LET J=INT (RND#208®) +29008 

1 PRINT AT 4,2; "SIE SIND IN E 
INIGE HAEUSER"“, 2% GEFLOGEN; DAS 
 KASTET SIE ",,," “",U;“ SO 


1715 LET M=M-J 
1717 LET V=1 


1728 IF INKEY BEER 
1738 LET ToD.3” THEN GOTO 1728 


2088 REM #*# EINKAUF ### 
cLs 


N 
r 
© 


ur 
IF I#188;M THEN GOTO 2048 
LET K(1)=1 . 























LET M=M-Ix100 

SOSUE 7878 

TEURE \OLLE 19,2; "WIEVIELE ING 
N SIE MITN 5 ? 

® PRO ING.) Pe 

INPUT I 

IF Iz288>M THEN 

nn. tere sSOTO 28955 


UVNN-Mfünum 


NSNBNGMRELTTMD 


PERPRHBRNZORON 
BESOUODWHO.S-) 


"WIEVIELE Rob 
MITNEHMEN ? 


Ofinyfur 


PFrPRrIN HI 
P-OUNDrP 


S 
@ IF I*150>M TH 

Ss EN G0OTO 211s 
® LET M=M-Ixiso 
5 GOSUB 7876 

@ PRINT AT 19,2 
-ART WAEHLEN 


ZPP 


; "WELCHE PROUVI 
SIE ?(1.=288 


BWOTDIUnMWINM- 
ne 
I 
r 
u 
© 
Z 
ir 
I 
Pr 
Oo 
Oo 
[eo] 


Pr 


sS@® IF (I=1 AND M<200D0) OR (I=2 
AND M<15808) OR (I=3 AND M<1088) 
THEN GOTO 2145 
2155 LET Ket4)=T 
2157 IF I=® THEN LET 


1) 
2158 ar INDER THEN GOTO 2180 


2198 PRINT AT 4,2;“"NUN MUESSEN U 

Bfann,,,ı URÜETRÜRRTIER.SER U 
Z 

ÜBETEILT? u. ZU BEKOMMEN. 

2200 IF INKEYE="" THEN GOTO 2200 


2508 REM ##+ PLANETEN-ZUTEILUNG 

x 

2518 PRINT AT 4,2; "DIE VERTEILUN 
5 IST SCHON IM“ FR VOLLEN GANG 
E;DER VORSITZENDE",,,"“ DER U.S. 


T._ NENNT NUN DIE", ,." PLANETEN 
DES B-TYPS",,," tALSO KRYPTON pP 
s538 IF INKEYS= 

="" THEN GOTO 2520 
2525 CLs 


2558 IF U=1 THEN PRINT AT 4,2; 'M 
AN SIEHT DAVON AB,DASS SIE", Be 
BEI DER LANDUNG DIE HALBE" ,, zn 

Ber 2 ESHOPGERT HABEN,“,,,„"“ E->: 


2sssBir_ U=1" AND INKEY$="" THEN G 


2548 CLS 
2545 PRINT AT 4,2; "SIE HABEN DEN 
PLANTEN"“ ‚B$; " ERHALTEN. 
HIER SIND EINIGE", ,," INF 
ÖRMATIONEN: 
2558 IF INKEY$="" THEN GOTO 255@ 
2555 CLS 
2568 PRINT AT 2,8; "PLANET: 
",;B$; AT 4, 8; "DURCHMESSER: 
".Q;" KM" ;AT ©, „Bi „KRYPTONVORKO 


u 

: Ar’ „® @; 
MMEN Sau 18,8; "LANDSCHAFT: 
2565 PRINT 


2578 PRINT a 





SEI TE TRREV/S="" THEN GOTo 2575 


age CLS 
; "NUN SETZEN WI 
R“ zu „TRANSITION”, »s»» NRCH '"';B$ 


2SSOMPRINT T AT 17,8; "COUNT-DOWN 
FOR 5=18 TO e STEP -1 






PRINT AT 2463, 5 
FOR N= 
NEXT 
FR 
oa TO 21 
PRINT AT 5,0,6$ 
Eu S5=-1 TO 188 


Ss 
PRUSE 28 
pi EUER. ® 





SLou > 





F bu) 
2,07’ zu ZZ 





3200 RE +++ VEBERRAS(CTr ) 33 

38085 

32108 SBRRINT AT 4,2, 'WIR BEFINDEHH 

UNS NUR NOCH’, ,,” WEMIGE LICHT® 

TUNDEN VON ",,," "88; ' ENTFER! 

8 v3 

2038 IF INKEYS=' THEN GOTO 283: 

29350 M #xxz SCHLUCHT ##%# 

32868 DIM UV(3) 

38655 LET UVi1)=2 

3072 LET V<(2) =15 

>25 Se D3) =13 

32 

3858 PRINT AT 4,2; "DIE LANDUNG MH 

ABEN SIE",,," GESCHAFFT ,DOCH NÜ 

N MUESSEN”" , ,," SIE DURCH 3 FELS 

SEHEUSBHTEN ; " -s , z" DIE VON MAL ZU 
Fu | 


NGER" , r WERDEN.STOSSEN 
SIE AN EINE" WAND a K 


ER us 
T sIE ons”; ,," 250 
3238 IF INKEY$s="" THEN GOTO 30892 


SI@BHPRINT AT 5,2; "MANDEUVRIEREN 
SIE IHR”, ,„” RAUMSCHIFF MIT DEN 


TASTEN”, 7," - "yet UND 7 
“"(--y)"jAT 21,11; "PRESS N/L To 


5185 BE rn THEN GOTO 31985 


9118 
s128@ FOR 5=8 TO 21 


315@ FRINT AT 5,0; ' UckcieimucEREET 


NEXT 5 
BRINT AT 8,8; 
IF Vi1)=8 THEN LET 0$- 


LET V(2) =V (3) +2 
IF vt1)=1 THEN LET 9$-" en 


IF vi1)=2 THEN LET 9$- n 













3178 FOR 5=@ TO 21 

3188 PRINT TRB V(3);098$ 

S19OMLET VS) =V(3) +03) <28B AND 

VIi3)) SGN (RND-.S) +INOT VL3)I) - (U 

(3) =28) 

3288 NEXT 5 

3218 LET Vi3)=UVct2) 

3228 FOR 5=1 TO 21 

3238 PRINT AT S ,UV(2); 

3248 IF PEEK (PEEK 16398+256=sPEE 

K 16399) =CODE '#" THEN GOTO 3320 

Sase PRINT AT S-1,V(3); "W";AT S, 
J 

32608 LET Vi3) =Vi2) 

s278 LET V(2) =UV (2) +tINKEYS="0") — 

(INKEY$="W") 

3288 NEXT S 

3285 LET U(3) =15S 

3298 CLS 

33808 LET Vi1)=VL 

33805 IF V(1)=3 THEN GOTO 4888 

3318 GOTO 31182 

33208 CLS 

3325 _ LET UV(3) =15 

SSSCPRINT AT 4,5; "BITTE 258 Sol 

3348 LET M=M-250 

3343 LET TOD=TOD+1 

3344 IF Ton=8 THEN GOSUB 9888 

3345 IF INKEYS$="'" THEN GOTO 3345 

3358 CLs 


3355 GOTO 3118 
43888 REM ### ABBAU ##+ 
4018 PRINT AT 4,2; "SO,NUN KOENNE 
N WIR ENDLICH MIT" ,," DEM KRYPT 
ON ABBAU BEGINNEN. "4" DAZU HA 
R EN zE 

‚“ TABELLE 
hal VER 


»» 23 


EN SIE DEN RBB 


FO 
4038 IF INKEY$="'" THEN GOTO 4830 
ia35 Een 


40893 
4040 PRINT AT 9,0 ———— 


AOSOMPRINT RAT 8,31; 
4855 NEXT 5 . 


4878 PRINT AT ae EEE 
» ar 9,1; "INGENIEUR 
e"!at ı 2,1: "KRYPTON F.";AT 14,1. 








"FRO WOCHE'",RT 15,2 ISEZz 


4188 FOR S=i TO 

41o5 T 

411@ PRINT AT 1,2;$; „WOCHE“ AT 

S.17;0 "Kcal ar ar Zn Ki 

ai,’ sat 9,17;" ";Ktal;" 
a1iswLETr Beint RAINER al aK Tan 
/K (4))% 

4128 LET T=(D+E+ (53x) ) af@HınT cc 
zi®BO») 

4125 LET Y=INT (T/tRND+1)) 

4132? IF Ki1)=B8 AND K(3)=8 THEN L 
ET Y=B 

4130 LET F=Y»2 BE REREN: 

4ld4ö LET FE=FG+4F 

4158 PRINT_AT 14,17," ";F;" TO 
";AT 16,17;" "ie; Tara 

4168 IF Ki1)si THEN LET Kti)=Kkctı 
) -(2#2(RND>.85)) 

4178 IF K(3) >1 THEN LET Ki3)=Kı3 
-{2*(RND>.85)) 

4173BS5L_OoW 

4175 PRINT AT 21,19; "PRESS N/L" 

18a IF TnKergen. THEN GOTO 41sa 

iss PRINT AT 21,130 Z 

4198 NEXT S 

428008 CLS 

4218 PRINT_AT 4,2; "SO,NUN KOENNE 

N WIR WIEDER", NACH HAUSE." 

4228 IF INKEY$="" THEN GOTO 42208 

4230 CLS 

«240 PRINT BT „4,2; "DOCH SIE BEHE 

RKEN ‚DASS DER" HYPERANTRIEB 
VOELLIG",.,," "ZERSTOERT IST,UND 
SIE NUN"! }}" ZUM DRITTEN PLANE 

TEN DIESES“, ,,"" SYSTEMS FLIEGEN 
MUESSEN,",,," UM DIE NOETIGEN 

ERSATZTEILE", ,," ZU BESCHAFFEN. 


4258 IF INKEY$="" THEN GOTO 4258 


4,2; "DIES KOENNEN 
.. EINEM ALTEN WA 
‚" _ TRIEBWERK TUN.A 
MUESSEN SIE DURCH 
IN ’ ETEORITEN-GEBIET.STO 
nn " SIE AN EINEM AN KOSTE 
4 





4 
T SIE",,," DAS 258 SOLI.AB UND 
zU" ,,," WERDEN SIE AUCH NACHTAN 
KEN", "“ MUESSEN (=388 SOLT)." 
4275’ IF INKEY$="" THEN GOTO 4275 
42808 


CLS 
4285 PRINT AT 4, ‚2, SIEyEBE SIE z 


HR RAUMSCHIFF” ,, DEN TAST 
E 34 W ee UND OÖ I-— 


4298 ar INKEYS$='"" THEN GOTO 4298 


5 
5888 REM ###* RUECKFLUG ### 
5881 LET M=M-25® 

saa5 LET L2=14 


5887 LET L1=® 
580983_IF Er Pr=ı THEN LET TOD=-TÜOD+1 


xT 5 
5868 FOR 5=1 TO 35 
5978 Era „AT INT {RND#22) ,INT ( 


L,L 
5878 IF PEEK_(P ER 163985+256 +PEE 
K >90 PRINT "W "B' THEN GOTO 598288 


5282 LET L2= en er 





EY$= 
s 2=® TRIEB. I 
32 2=29 Fir" 
Ben zeir END 28 THEN PRINT “AT In 
Se ar) INT (RNDaSB) 
Be TAT 81,0:06 
3 
5119 IF RND>.4S THEN GOTO 59398 
s128 NEXT 3 
5130 FAST 
5142 CLS 


2,"S5IE SIND _ NUN 


S51S® PRINT AT 4,2, | 
ae LT RDCHDEM" IHR TRIEBUS 
RK BUF’DENM",,,"" BRITTEN_PLANET 
N REPARIERT”; .," WÜRDE ‚ZURUECK 
ZU TERRA ZU" ),)" FLIEGEN.’ 

5155 SLOW i 
Sisa IF INKEYs="" THEN GOTO 516 
5178 CLs 

5175 GOSUB 70800 

5177 CLS 

Ss1e8 GOTOo 6082 

238 Er" 

5338 PRINT AT 4,2; "IHR TREIBSTOF 
F WIRD KNAPP" 

= SLOW 


325 
53380 IF INKEY$="'" THEN GOTO 55538 
5348 LET M=M-3002 

5358 FÜR N=2 TO 21 


PRINT AT N,B;G$ 
2352 ERINT ST INT (RND#22) ‚INT ı 


5390 ERZET, AT 4, 298; '’B'; AT 5,29; 
:T ;TAB_19; ":";TAB 12 
. BR ; TAB 14; "er Ind”; 


.’ 33; Bar 4,208; 
N,ı15; 'B‘ 


”. 


7,15: E2 
IF INKEYS$S=-"'" THEN GOTO 5458 
N,ı2; "EEE 








SSa2BS0TO 5138 user 
Saa0 RE *** RESULTAT ##* 


5810 
56828 PRINT AT 4,2; "WIR LANDEN NU 


8836 IF INKEY$Z"" THE 

! hu - N 

sa3s Fast ;s= GOTO 6838 
6848 FOR 5=2B TO ae 

5858 PRINT AT 5, a AT INT (RND 
#19) ,INT RNDAS2) 

NEXT 5 


65878 PRINT AT 19,08; V$ 
59875 SLOW 
2058 ERane ar "2 32,. 
; - SA: 28,22 
z . .. - Hr Le, .m- ir ; AT se 4: "gm r AT 


6 120MN 
611® PRINT AT 22 11; 
6120 IF_INKEYg="‘ THEN GOTO 6128 


W 

6148 PRINT TERKAR, „HER SInD NUN 
ND KOENN 
EN ERFAHREN “"’ÜTIEVUIEL DER K 
RYPTON-ABBRU" ; ‚,," EINGEBRACHT H 


56158 IF INKEY u... 
6155 CLs $= THEN GOTO 6158» 


160 PRINT AT 2,8; "KRY.I.T. PR. 
PRO EWINN" 


270° LET Z=INT (R 
6188 PRINT AT 4 "ns: Nt- (6); TAB ı 
tab as 23; IFGsZ) 


bios PRINT AT 19, Rt" IEMENR sol 


D MME":A FG+Z; TA 

a : 

2, ih ";M;TAB 12; tab’ 2 ;FG#+ 

BOMLET G=INT (FGsz+ (m) ) 07 

6218 IF ı Lee 

e220 Fin THEN GOTO 621ı®@ 
32 <5888 THEN PRINT 

"SIE SIND DIE SLLERGROESSTE", “ 
msgBBAUNIETE. ‚SIE SIND" Ent 


6248 IF nn 2ueme) AND (G 

THEN PRINT AT “em WER Ocızeoe 

EN.sıe- SIND", ,. A ‘ oN RBEN TEN 
>= 12000) 

I THEN PRINT AT 4, a PET 











| 
UT_GERRBEITET UND SZ DUERFEN 9225 LET C=INT {RND+10988B) +5998®8 
na BEI DER",,,“ Um TE 9838 LET D=INT (RNDe2) +1 | 
=INT (RND#2) + | 
5S260HIF G»=1P8aaı8 THEN PRINT AT u er AS ANMUEGELIG" 
4,2; "DANK IHRER GRÜSSARTIGEN", ,, 98045 LET X=® 
" LEISTUNG WERDEN SIE ZuUN",,,” 9958 GOTO 91938 
VIZE- -DIREKTOR DER U,8.T 91980 LET B$6='"ALDEBA 2 Bu 
ERNANNT . ",222" _ HERZLICHEN ALLEN 85 LET C=INT (RND#+199898) +598® 
CKWUNSCH"“ ® LET D=INT (RND#2) +1 
5278 IF INKEY$="" THEN GOTO 6270 5 LET E=INT (RND#2) +1 
6250 GOTO 9580 ® LET A$="FLACH'" 
7808 REM ### CHECK LIST z#%* 5 LET X=i1 
7885 FAST m) Ug=" 
7@12 PRINT AT 4 Fin — ro. 
7928 PRINT AT 2,8; "CHECK LIST "; , er 
AT 6,0; "GELD"; AT 8,8; "MASCHINEN" 135 LET FG=® 
;AT_18,8; "INGENIEURE";AT 12,08; 'R 9148 LET TOD=& 
OBOTER"; AT 14,8; "PROVUIANT"“, 145 LET PR=@ 
7838 FOR S=8 TO’ı5s 9158 RETURN 
848 PRINT AT S,10;"p 9898 CLS 
78580 NEXT S 9885 FAST 
7855 _ PRINT AT 4,109; '"Y" 9818 FOR S=2 TO 21, 


QB5OHPRINT AT 6,26; "SOLT" ‚AT 5, 2 


9828 PRINT AT 5,8; 
NEXT 5 








E 
6; "STUECK";AT 18,26; "MANN";ar i2 
„28; "STUECK";AT is ,26; "KLasse" 
7@87@ PRINT AT 6,18;M; ;AT 8, 9835 SLOU 
18;Kcıla ;AT 10, 18;K (2); 9848 _ IF INKEY$="" THEN GOTO 954® 
AT 12,18; Kt3); ;AT 14, 18;K SS5S5oHicLSs ” 
1a);" er “;AT 21,18; "PRESS N/L" s3se PRINT AT 21,12; "NOCH EINMAL 
, ”. 
27888 IF_INKEY$="" THEN GOTO 7880® 9678 IF INKEY$="Y" THEN RUN 
”898 PRINT AT 21,18; 98880 IF INKEY$="N" THEN GOTO 999 
7188 RETURN 3 
9808 REM *#** INITIALIZE x++ 3898 GOTO 93578 
3225 LET N=io80g, 3997 SAVE "ANTRAREB" 
3218 GE'RNDS,s Tnen 0 3335 EV 
Fa 0TO 9188 9999 STOP 
93928 LET B$="TREBOLA IT" 





b 
überstanden ! 
kares” für den ZX-BI EU EN. und nie gekannt 
jel”’Antar wagen, 
Weltal 


Wenn Sie das Fe r alin das 


Sie sich gleic ch no 
ren warten. 















RS=RSs H+EHR 


ZEICHEN 





2 TO 25 
AT 0,2;060$ 


G 

5='842 B812 864 906 38293 
26 254 115 832 388259 8165 
95 128 119 a24 242 300 
RAUMPRTROUILLIE ORION 


":AT 11, 
r';AT 13,2; 
"AT 15,2: 


13° FOR Sr, TO LEN 9$ 


14 NEXT 
‚8; Par Lr, 

"at 13,8; 

";AT 15,8: 'Ü 


In’ BOR D=2 TO LEN ©%& 

17 NENT 9 

„28 PRINT AT 10,14; "s";AT 11,14 
;RT_ 12,18, EHRE 233;8T7 33 24; 

| 133;AT 14,14;CHR$ 133:;:Pt ı 

‚it2;CHR% 133; 

u=1 TO LEN 08 


22; “at 231 
ar 18,275 ME St 23 
"SAT al r7Z ;ar 15 
» 
2,23: “. 


a? 

">PFr 3 
Ar 14/ 23; "AT 185 
Iäare3 79 17222 


32 
24 Poke” z.uaL Ist To 3) 
SE ET I$=i$15 63: 3 


O = 
RINT 
EXT 

E I 
3 ı 
@ I 















a 18, 23; ' 





38 NEXT 

55 PRINT Kerr 28,5; "VEREREEE 
mn ; 

“8 FOR 9=1 TO Leu 0% 

41 FRI USE 27 


ng 


Ten hr 
xT m 
42 RANMD WER ı7E2 
58 LET =" B22 23829 229 229 942 


OR I=z16514 TO 16686 
82 POKE I,VAL MSs( TO 3) 
54 LET de M615 Tn ) 
66 NEXT 
565 GOTO 1E3 
ie PRINT AT 2,Int 


& LET RA=uSR 16528 

LET Se541 

ai S/1E2=INT (S/1iE2) THEN 5 
IF NOT A THEN GOTO 7% 


3E2 
IF Agiıl- =CHR& 135 THEN LET 


(RND4(3I3I-LEN 








218 IF As(1) <>CHR$ 136 THEN LET 
538 ır“ TAE2=INT (S/4E2) THEN L 
Lg, 2=INT (5/5E2) THEN LI 
= TNEN PRINT FT 1,2 
80 IF 5,=6882 THEN GOTO SEZ 


27® 
>82 
5515 
>85 
31® 
328 
332 


+38 
128) 


538 
54» 
SS5® 


® 
ET P/PEEK 16514+256 «PEEK I 


FOR X=1 TO 3 
POKE p’i2s 
POKE P,CODE_cHRS$ 23 


ar L 
Bi HS =H3>CHR3 CODE L31iX%X)3 » 





LET T=T+INT (RND=#=S-1) 
2 70 THEM LET  T=@ 
IF ’T)31-LEN A$ THEN LET T=3 


i-LEn A3 


ST ES 
LOISTRERKE DER 
ses 


(5/15) THEN LET 


Taucen P Ö 


SEM. ö 

GETZLICH HIE SESENENE Tess 
WESEN AUF. DA FUER SOLCHE ZU 
ISCHENFRELLE NICHT GESORGT IST 
ESSEN SIE DEN GESCHUADE 
T LEICHT SEIN.” a 


IiBid PFSIWT 37 1a,n;” HD 

NICHT GENUG, E BET. 
IS HIERHIN ALLES GUT UEBERST 
ANDEN BERATEN SIE IN EINEM Sc 
HUARZEN HE „GESTEUERT U 


1815 
E TR 





En AT 19,5;' DRUECKE EIN 
PRLTET HEN GOTO 10 18 








Fireball 


für den Dragon 32 


DRAGON 


Die Feuerteufel ziehen durch die Nacht und treiben mit jedem, der Ihnen begegnet, Ihre 
makabren Scherze. Wenn Sie, lieber Leser, es mit unseren kleinen Teufeln aufnehmen 
möchten und sie für alle Zeit von der Erde bzw. von dem Bildschirm Ihres DIET RZIE 
bannen wollen, sollten Sie sich schnell das Listing vornehmen, eintippen und los 


gehts! 


Spielbeschreibung: 

Wie alles Übersinnliche, sind auch un- 
sere Feuerteufel nicht sichtbar. Sie kön- 
nen nur durch einen runden hellen 
Schein, der sie umgibt, wahrgenommen 
werden. Als mutiger Held müssen Sie 
versuchen ein Loch zu graben, mit 
Hilfevon den 12 Paketen Werkzeug, die 
unter der Decke einer lagerartigen 


358 CLEAR 5865: CL5 


48 Z1$="T543103L4" :22$="T5Y3104L4" 


: 245="LZCCEELID" 





Halle hängen, in der die Teufelchen 
spuken.Ist das Loch gegraben, gilt es 
nur noch zu warten bis einer der klei- 
nen Biester ın die Falle geht und dann 
das Loch schnell wieder zudecken. So, 
das wäre also der Erste gewesen. 

Aber wo einerist, da sind meistens noch 
mehrere, so auch in unserem Spiel, 
denn jetzt geht es erst richtig los! 


34="T25503431" 


>38 PMODE1,2:5CREEH1,1:PCLS5:COLOR4,7 


68 R1$="D49L4BLIORZOLZADISRIL": 


41$="DDFFCCEE" 


Immer mehr Teufelchen tauchen auf. 
um Sie mitzunehmen, in ihre unterirdi- 
sche Höhle, tief in der Erde 

Sie selbst sind mit vier Leben gesegnet 
und nach jedem verlorenen oder ge- 
wonnenen Spiel, bei dem 8 Feuerteufel 
eingegraben werden müssen, treten 
diese noch zahlreicher auf und das 
Spiel wird immer schneller 


Ne2e$="AABBGGDD" 


D2$="D48" :036="D4BLI4OLSRZ3FSDLOGSLITRIEFADIS” 


?0 04%="D4QU48L3RZ3FSD1OL17RISFSD15GSL2E" :05%="D3AUSBESRIAFSDSBUZOL2D" : 063="DAHR 


20 „ 


88 DRAW"BMI12,4B"+M1$+"BM42, 40" +D2$+"BMEZ, 40" +03$+"BM102, 4ODI4ARZ2ZOBNM1O2,, JORZOL2OD1 


’RI13EM132, EARZB" 


98 DRAU"EMAG, 120" +04$+"EMES, 128" +05$+"EM128, 120" +06$+"EM156, 120" +06% 
109 PLAY Zis+K1$+K1$+K2$+K26+2%8 


118 PMODE4,1:SCREENI, 1 
128 GOTO 659 


1398 FOR F=243 TO 48 STEP-1 


'NEAT 
148 PLAY"T253" 


159 E1=INYSTKCH) EZ=JIQYSTKCL): 


LINECF,3)-CF,7),PRESET': FOR G=1 TO 3:FOR 


ES=PEEK( 55250 ) 






Y=1l TO Li48 








1658 IF E1>56 THEN 226 ELSE IF E1X28 THEN 238 ELSE IF E2<3@ THEN 248 ELSE IF EZ>5 


 THEN 2589 ELSE IF E3=126 OR E3=254 THEN 490 
{FB IF A=C AND E=D THEN 288 ELSE GOSUB 2ER: IF A=C AND B=D THEN 298 ELSE NEXT G,F 


GOTO 198 
sg IF PPOINTCA,B+23=5 THEN 178 


15 
136 a B-6 >-(A+7? 
A.E+2)=5 THEN 20965 ELSE 198 


23 FOR 2=1 TO 16: PLAY Z3$+42%: CIRCLECR+3,B-3>,C 


18: LE IRCLE(C A+3,B-3),C,B: NEXT 
>16 SOTO 559 


226 PUTCA,B)-CA+7,B-7),B,PSET: A=f+8:GETCA,BI-(A+r7,B-73,B,G 


A,PSET: PLAY Z3%+"C”":6070 7188 


229 PUTCA.BI-CA+7,B-79,B,PSET: A=A-8:GETCA,B)I-CAr7,E-797,B,6G 


PSET: FLAY Z3$+"E":GOTO 188 
eat IF PPOINTEA+? 
-([ A+7 


25% IF PFOINTCA,.E+1)=8 THEN 176 ELSE PUTCA,BI-CA+7,E-72,6, 
A+7.8-7 93:.B.G: PUTER.BI-CAr+7.E-79,A,FSET PLATZ 
268 DN H GOSUB 288, 329,339, 389,458 

278 IF PPOINT<C+3,D+2>=5 OR H=STHEHN RETURN ELSE H=5:G0T0 448 
238 %=3:\Y=d: IF C<248 THEN ZIBELSE H=2:G0T0 320 


234 IF B{D THEN 308 ELSE IF BD 
368 IF FPOINTCC.D-3>=8 THEN 39% 
318 IF PPOINT“C,D+1)=8 THEN 379 
328 %=-38:'Y=B:IF C>5 THEN 299 
338 #=B:\=5 

348 IF A<C THEN 368 ELSE IF A>C 
358 IF PPOINTCC,D+7>=5 THEN 398 
368 IF PPOINTEC-1,D+Z2)=ATHEN 358 
37a IF PPOINTCC+3.,D+2)=B THEN 

328 %=9:1Y=-3:G0T0 348 

398 PUTCLC,DI-£C+7,D-7),E,FSET: 
L,D)-CC+7,D-79, F,FSET :RETURN 
458 IF I=1 THEN 429 ELSE IF 

418 I=1:LINECA,B-5>-CA+7,B-15 >, 
428 I=A:LINECA+S,E+12)-CA+15,B+5> 
LSE PLAY"T25501DT7ODZE" :GOTN 178 


‚B-2)=8 THEN 188 ELSE PUTCA,EB>-CA+7,B-7 9, 


‚E-7).B,G: PUTCA, B>-CA+7,B-79:A,PSET: PLAY Z3$+"A":GOTO 1936 
FSET :B=B+3:GETCA,B)- 


35+"D1CE" :GOTD1S8 


THEN 319 ELSE 37% 
ELSEH=4 : #4=0 :Y=-5:GOTO 33% 
ELSE H=3:#=0:1=5:G0TD 3728 
ELSE H=1:G0T0 2580 


THEN 378 

ELSE OH RNDIZIENTO 369,378 

ELSE H=2:4=-5:Y=9:G0OTO 398 
358 ELSE H=1:%=5:'/=9: GOT0O3?0 


C=c+4:D=D+7 :GETCC,DI-CCH7, 
PFOINTCA+1,B-11>=8 THEN 178 


PRESET ,EF: PLAY" T7503"+A1$: 
‚FRESET.BF:IF A+t5=C AND B+5= 


‚B-7),PRESET ‚BF: B=B+2:PUTCA,B>-(A+7,B-7> ‚A,PSET:IF PPOINT« 
>:NEXT:FOR C=19 TO 1 STEP-1:PLATY 


: PJTCA,BI-CA+7,B-7), 
. PITG A, E I). A+7, B-7 >, 
B,PSET :B=B-3: GETCA,B) 


D-72,E,G:PUT 


GOTO 176 
D THEN 4308 E 


438 PUTELC,D>-CC+7,D-7),F,PSET: PLAY Z184"T7R"+2Z4$:M=M-1: 5=3+1B8:IF M>G THEN 478 


ELSE62B 


448 FUTCC.,DI-1.C+7,D-7),E,FSET: D=D+53:PUTCC,D>-(C+7,D-7),F,PSET : %=RNDC RND< SO I) )+L* 


RND< 18): RETURN 
458 PLAY Za3$+"C": 
RND(2>:OH H GOTO 288,228 


455 PUT<CC,DI-CC+7,D-7),E,FSET: PUTCC,D) -£ C+7 ,D-7),F,PSET :RETURN 


=4-1:IF 478 THEN 468 ELSE D=D-5:PUTCC,D>-CC+7,D-7),F,PRESET :H= 


478 LINE« 109+M%19, 29 )-C197+19%M, 132, PRESET,BF'C=192:D=39:H=2:GOTO 178 


4536 I=B:L=L-1:M=7-L:PCLS 


438 DRAW"EM1B, 11JELZRESLZDEERARZUELZRSLZDERZERZUERIDEUSRIDIFIUIRIU1IRIULDERLUSEBRZR 


ELEDERELFIEDZRZ3" 

568 FOR A=191 TO 47 STEP-24: 
518 FOR BE=1 TO 28:DRAU AS: 
528 RESTORE:FOR A=1 TOD 3:READ 
524 IF C-8%D748 THEN D=D-3: 

>, PRESET,EF 

548 FOR E=8 TOD D'DRAW BS$:NEAT 


DRAW" BMS,"+STRSCA) 

NEXT B,A 

B,C:D=RNDCL)*3 

GOTO 538 ELSE LINE(CB,C-1)- 


E,A 


(B+7,C-8xD-8 


558 DATA 232,134,16,184,96, 1698, 72,136,208,112,176,136,48,898,128,64, 144,898 


568 FOR A=32 TO 216 STEP 194: 
7,B-7),C,PSET: NEXT B,A 


578 LIHE“48,99-(247,7),PSET,BF 
5238 GET(8,188)-(7,93>,B,G 
530 GET(B, 198 7,93), E,G 


FOR B=55 TO 175 STEP 24: 


PUTCA,BI-CR+ 











558 FOR X=188 TO 100+6-L)%19 u CH, =(%47 ,13), PSET : NEXT 
618 A=96:B=183:H=2:C=216.D=39, I Aa 

628 S=S+F:CLS L:IF L=1 THEN 948 ELSE PRINT 8198,"sehr gut";:  PRINTS167,"S 
ES eK TNTaSS?, nun Rd BTL FADE" "PLN ziesznes zerzue 

N er 5 SPIEL NR" in 2$+41$+%42$+Z1$+ '$+Z1$ 

20, Cor »8-L; :PLAY Z2$+X1$+%28+Z18 2% 

039 SEE FFTTRTDIM ACB,B),.BCH,E)  ,CCB,6),ECB,8),FC0,8): PMODE 4,1: PC 
650 DRAW BM101 , 33RSEILZUIRFULLFUIRTHILS" :GETC 180, 99)-C197,943,C,  G 


6r’B R$="ERIREOBRZRBBRZRBBRZRBBRZRABRZRAUILILUIEIRI RiFIRIFIRIFIEUALIIR1U1BRZ 
ROBR2RBBRZRBBRZ2RBBRZRBEM+ , +7" SINAEENSEURA 

650 he GueL7DZUPDIRZED7" PLAY Zi$+X2$+X1$ 

6 u ‚ 1835R1UIR1UIR3DIRIDIRIBUSHILSGIBRZRIU2LIHIRZHILI": PLAY Z2$+X1$ 
788 GET( 96, 183)-( 183, 176 ),R.G Ri 

718 DRAW EM193, S3RSE1L7UIRFUILFEIHIFIRSEIGIHLEIGILSHIFIELHIFIRIEIGI" : PLAY 28 


r28 GETC192,39)-(199,32),F,G: PLAY Z1$+2%% 
738 L=7:CLS 8:PRINT33, "ANLEITUNG" 
748 PRINT:PRINT"ES HAT SICH BEIM STAMMTISCH HERAUSGESTELLT DAS DU SEHR 


MUTIG BIST.DESHALB DARFST DU AUCH DEN FEUERTEUFEL BESIEGEN ! UND WIE ALLE TEU 
FEL UND GEISTER IST DIESER LUNSICHTBAR UND FUEHRTNICHTS GUTES IM SCHILDE !ıı" 

758 PRINT"ABER SEINE WAFFEN KANNST DU SEHEN UND WENN DU NICHT vORSIC 
HTIG BIST.KANNST DU SIE SPUEREN !IN DIESEM SPIEL HAST DJ MIN.4 LEBEN. GESTEUE 
RT WIRD MIT DEM RECHTEN JOYSTICK." 


768 INPUT"ENTER";Q$: IF Qg="" THEN 778 ELSE END 
778 CLS 8: PRINT"WEHREN KANNST DU DICH INDEM DU FORTLAUEFST ODER DURCH DRUECKEN 
DER ’FIRE’TASTE EINE GRUBE GRAEBST UND SIE MIT DERSELBEN TASTE WIEDER ZU 


DECKST NACHDEM EIN FIREBALL HINEINGEFALLEN IST."; 
788 PRINT"ABER PRSSE AUF DAMIT DU NICHT SELBER IN DEINE GRUBE FRELLST ı DAMIT 


DU GRABEN UND WIEDER ZUDECKEN KANNST," 

738 PRINT"HRENGEN SPATEN UND HOLZBRETT AN DER DECKE!DIESE HILFSMITTEL SEHEN 
ZUERST ALLE GLEICH AUS... ABER FORTUNA IST MIT DIR: DAS ERSTE PACKET IST D 
ER SPATEN,DAS ZWEITE DAS HOLZBRETT !!";:INPUT Q$:IF Q$="" THEN 200 ELSE 800 


888 CLS 1:PRINT"DAMIT DAS ALLES NICHT ZU LEICHT WIRD SIND DIE HOLZBRETTER MORSCH 
UND EINIGE LEITERN SIND MIT ÜEL BESTRICHEN!ALSO KEIN SPIEL FUER HEKTISCHE LEUTE 
| DAS SPIEL WIRD IMMER SCHNELLER!" 

818 PRINT"HOECHSTPUNKTZAHL YOM VERFASSER: 9337 PUNKTE! 11 1":PRINT" BITTE WARTE" 


328 GOTO 438 


848 PUTCA,B)-(CA+7,B-7),A,PSET 

858 SCREEN 1,1:G0T0 138 

868 PLAY ZiS+K1$+H2$+ZX$+Z1$ 

878 CLS 4:PRINT®S138, "UEBUNG MACHT DEN MEISTER"; 
888 PRINTS166," DEINE PUNKTE :"; Si 


838 IF 5>H5 THEN 928: IF S{HS THEN 958 

988 PRINTS385, "HI-SCORE" ;H$; " YON ",5$; 

918 AN=AN+1:IF AN<S5 THEN 438 ELSE 9359 

928 H3=S :PRINTS239, "NEW HI-SCORE" ; ‘PRINTS321, "name"; : INPUT S$ 

938 IF LEHCS$)>14 THEN 328 ELSE PRINT3351., CHR&( 255); :GDTO99O 

948 CLS 5:PRINT336, "DU HAST ES GESCHAFFT !11":15=5+1998 : PLAY" V25L303DT4LSO3VI1GAB 


GO4DN3L4ELSBO4O3ENI4LDLO3BENALDOZAGABAL303DDDIAIGG" :GOTO 339 


358 PMODE1,2:5CREENI,1:PCLS 
968 DRAW'"BM43,48D3BL3BESR15F3D5G2L5BM43, 48D30FSR1SESU1BOH2LE ı BM88,, 4OD39OU3HESR LAFS 


D38U28L29 ; BM123, 43D48lJ4@F 15E15D48 ; EM178, 4BD4AR2OBM178, 4ORZOLZODI7RI13" 


978 PLAY Zis+X1$+%41$ | 
938 DRAW"BM3B, 1365D38U3B8ESR18F5SD3AGSL10H5, BM6D, 130F29E29; BM115. 130D4OR29BMI 15, 130 


R28L26D17R13; BM164. 130D49UJ4AL3R23F5D1AGSLI17RIEF4DIE"998 PLAY K2$+X2s+ZX5+728+X18 


+42%+27$ 
1098 ie: 2:PRINTS292, "NEUES SPIEL AJ/NÜ 77", : INPUT Q$:PRINTS1E2, "HI-SCORE VON "; 
55) :PRINTS194, "MIT ";H5;" PUNKTEN"; IF O$="J" THEN FOR A=1 TO 2508 NEXT 


RUN:ELSE IF Q$="N" THEH END 











159 SI=SB+IEWI ı K2=K1+C W1-1 3 AS=K1l+CR-?2) 

1=A PUT: ltr 13? DET 2 ’ T? ) Fi PS E 2 ‚ E R 

2a FHINTCN2.128),PT,2 EI TSEERIGENRT. ae 

IA NEXT 

228 DRAWTEM4 , 4NR4D4NR2D4BN+B, AUER> ZG2L2 UER4DE 3, BUSR4HNL ‚3EM4 , 13F 
SNDSRZEM+4, BDBRAUBLAN DE ar SKEFZGZLZF4BN+4 , BUBRIDSLA4BM+3 , DOUSRAND4RADZEM4, 12F 
234 FORI=1TOg4 STE I3=+1:STC 145 )=-1 : NEXT 

244 ST I2=H 

258 I$=INKEYS: IFIS=""THEN?2SQ 

265 NI=YALK IS): IFN1=BTHENZ?R 

275 IFSTCH1 )SBTHEN228 

nn TAI CNIKINFSIETI- 3, 2,GHRUTCAL,1 90148, 0+1 9,2, SET :PUTCO1,4U-1) 
235 I$=IHKEYS: IFI$=""THENDSG 

240 NE=YALC IS): IFH2=SSTHENS2A 

>15 IFSTCN2)=SBTHEN24G 


ae an Dt © PRINTSZ23A, "HE,DAS WAR EIN FEHLER | 1"; :FORI=1T02:PLAYFS+"O1T2SSCCEE 
C2.0374" NEXT :FORI=1TOS@R: NEXT 
320 CLSRND( 8): PRINTS233, " „..HA ? GIBST DU AUF 77?" :SCREEN1,9:G0T0258 


344 IFABSENI-NES>2THENS2R 

zo GETS NeXW1-5, T43-CN2XW143, T1-1 9,2, G:PUTCS1,189-659,31 3,2, PSET 

269 COSUBATE 2 FUTCS1,183-(59,31>,Z:PSE 

en u > THENELSRNDC 8): PRIHT2224,". „KLEINER OPTIMIST.UAS 77" ; :PRINTS278, "NA, GUT 
‚STARTE NEU" :FORI=1T01328 : NEXT SCREEN ,9:G0TO120 

>56 FORI=1T04: IFSTC I 3<>-1THENZSA 

>38 IFSTE I+59< >1 THEN?SA 

4aa NEXT : "FROGHOFPER 

418 FORI=1T06 : FLAYFS :HEXT 

428 ELSRNDE23) 

433 PRIHT=E236,"### GRATULIERE ###": :PRINTS23A,. "DU HAST ES IN "365 :PRINTS322, "VER 
SUCHEN GESCHAFFT" : : GOSUBaAR 

440 FORF=1TD3: 50UND9S,5: FORFF=1T0S58 : NESTFF :SOUND135,5:FORFF=1T058: NEXTFF,F 

458 FORI=1T01338 : HEXT :SCREEH1,9 

4658 I$=IHNKEYS$ : IFIS=CHRS$C 32 JTHENIPOBELSEdEA 

476 Al=WINI1-C 0-1 3:PUTC %1,1329-C X1+23, 139, BL,PSET:PLAYFIS 

458 IFH1>NZTHEH GOSUES4BELSEGNSUBE2B 

43a Al=WU1ENE-9: PUTC #1, 132 3-C K1+c 1-19, T33, F1, PSET :PLAYFIS 

s88 IFSTCH1>>ATHEN PT=1ELSE PT=4 

518 PAINTC#1+£ 0-29, 1389, PT,8-19: STC N2)=STCH1 I:STCEH1 )=Q:Csc+1 

528 GOSUBE4A 

524 RETURN 

54a D4=CH2-HI DHL/2 3): K1=K14D% 

SSG IFSTCH1D>ATHEH PT=1ELSE PT=4 

568 PUTC #1. T+189-CK1+CW1-1 9, TtW14+5 3, F2,PSET :PAINTCK1+11, T+19 3, PT,0rE 

Sra KZ=eK1+DH 

SE PUTCA1,T+193-C K1+CW1-1 9, T+W1+59, BL, PSET :PUTCKZ, T+8 I-CK2+CWI-1 3, T+27 3, F1, PSET 
:PAINTC X2+(. 0-1 3, T+0+5 3, PT,076 

594 Kil=K2+b% 

6Ba PUTCKZ2, T+35-C 24H U1-1 9, T+27 9, BL, PSET :PUTCK1, T+CQ-2)9-CX1+23,129),F2, PSET: PAI 
HTC#1+C0-1 3, T+13 3. PT,9/6 : PUTC #1, T+18 3-C X1+CW1-1 3,1293, BL,PSET 

&18 RETURN 
628 GOSUES2B 

628 RETURH 

648 D1=IHTLC/C9-2 3): D2=C-19%#D1 : IFDI=OTHENGEA 
658 GETLD1XW1-5, T+38>-(D14W1+2, T+7@), 2,6: PLTC 228, 18)-( 238 ,W1-2),2,PSET 
666 IFD2=ATHEN PUT( 248, 19)-( 248,22), 28, PSET : RETURN 
678 GET D2%W1-5, T+53 )-(D2#W1+3, T+79 9, 2,G: PUT 2498,19 )-( 248, W1-2),Z,PSET :RETURN 
636 DRAU"EM11 42049401 10R39L23015R11BM19B, 7SRSUSRZF2RZFAUZEARLEIRZUBBM2A4 .77C1L 
IG2R4BM2AE , TAU4HRZL2HU2ZL4USR2BM138, 77D2L4 
636 DRAW"BMS1 43049 U49L3R23FSD1BGSL17RIEF4DI6EMIB, 53D39U30ESR 1AFSDIAGSLLAHSEMI2E 
,53D39U3GESR15F3DSGZL5PM133, 53D3AFSR1SESU1OH2LE 
| 786 DRAU"BM1S, 183049 U29RZBU29D40EMSS, 112D3AU39ESR1AFSD3AGSL 1OHSBNMIB , 1OSDABUIKAL AR 
| 23FSD19G5L17EM133. 183D40U46L3R23FSD19GSL17" :F$="01 T255V31CEBOSBECO3T4" :A$="BMI?. 
| 126U3EIRIFLD2GIDSF2DIFINDZRIEZUIELUSRIEZH2LIGZNL2FLBMII, LASL2HIL2NULD2FALICIL2" 
| 71a DRAW"EM172, 198D40R20BM178, LOSRZBLZADIRI3EM213, 1BEDABUAOLARZIFSDLOGSLITRIEFA 
1 Di6" :0=12:4=29 :W1=24:: T=198: T1=171: T2=152:W3=38 T3=151 1 01=51 : T4=158  Ag=Ag+"BM2S, 1 

| FZHULDZG4RIFIRZ" 
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i 
SE Bu ‚ j 4 -_. 0. 3 & ru m wınp® z 
o, Force rn 11 T099:NEXTYVSCREENI,D'FORVV= | 
1 bi lir - | j- m 5 a eh 0 Ba i FR WW) : d fr h 
u | \ Bear. rl Ye ıı ei " Ä = e Ve ul h Com 9 Y u “ ü L g d hie £ 
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>LSENA4NZEL 
.‘ ö 


ISLFELJEUF J LM 1 052 7,57 5 | | Pi [ 4 
3). he | 
„G'PAINTC22,1389,1,2: FORI=1T03 \ 











ee 2 u = ea. T+27 3, BL,PSET :FUTCX1, T+19)-( X1+23, T+W1+59,F2, PSET :PAINTCK | 
1 +11, TH 9 FE | ai 
238 PUTC L1IO)-CK1+ 4 ‚1293,BL,FPSET RETURN RL | 


e) AA . - N i 
: SOUNDI , 1: NEXT : 1 I 


ZX-SPECTRUM u | | 














































> PRINT AT 8» 

T@,4;'@ Karsten Sch 
bmacher ©" ;AT 2,11; "wi ltingen”; A 
T 6,9: "RBERMANy ISA": AT 6,86: "cha 
SHIC GENERATOR”;AT 80,1; "New Gr 
aphic at PÜKE 223&07,249” 

_\.3 PRINT AT 11,108: FLASH 1; "PL 
Sa2E POTT h SF? nÄREABOB. Kon FE 
T a=8+1: NEXT f ee Pe 

5 BORDER S: INK A: PAPER 6: c 


Go Suß 9: Ga SuB 209 

. FOR. Fei TO 82 IEET 
I r 

18 FOR f=1 TO _ 8: PRINT AT f 


: 72: 
P &: PLOT iS,1i83-f: DRAU 684,0: P 
: DD : NEXT f 


28 POKE 23607 ,249: LET a=32: F 
OR f=1 TO 16: PRINT AT f ‚25; CHR$ 


35 RETÜRN 

“8 PRINT ST Ai1,i;"Press :": PL 
oT 5. ‚79: DRAU 56,8: PRINT 13, 
1; To peek one” AT 385,41; ° © 
save the U.D.G.’s";AT 17,05 T 
G l08d V.D.G.’E' >. 18,1: To c 
hange one by cursor 15285 Bar 2i 
a To stop B To clear pa 
ser 

SO LET is=INkEy 


2) zP 19:73” "GR 
er THEN CO TO S2 


68 FOR #=11 TO 17: PRINT AT f 
„f; FOR F=@ TO 2: PRINT AT 194F, 


2: NEHT 7 
72 Re THEN Ga SuB 238: 


I ya AT 315,7; FLASH 1,"5T0 

128 FOR /=-12 TO 28: BEEP .i1,JF: 

NEXT f 

132 STOP 

208 GO 5UB 12 

285 PRINT AT 15,1; "Which charac 

er [7 

2108 A as: IF a$="" THE 

ET semagiir: IF as<" " OR 
HEN GD TO 21 

22 7 To A: LET zif) ABEXK 

(B# (CODE 26-2321 +,64RAQRA+f-11: GO 

D2> 3DB2. - X A 4 

2328 RETUR 


or: 











„+00, FRINT at _ı5.7:; 


5: PRIHT (8+ (CöDE a$- -52) +6498909 + 
z( 





3808 ERINT HT 25,7; FLAS»Y 1, "SAV 
55 ri ZUAUT "MERRT "3 LEE BE 

„308 IE LEN E$6:120 OR b$="''" THEN 

re ns 


>08 
91BD SAVE bESCHDE E4009,768: GO T 


FLASH 1; "LOR 


1  \ InuFi5JtT "rame7 *; LINE bS 


405 IF LEN b$:10 THEH 60 TO 400 
410 LORD LSCODE 64009,766: GO 5 
IE 20; 66 TG 38 | 


588 LET 3=12B. LET c<=6: LET t=1 
LET ke.4. LET =i: LET y=i 

51® PRINT FT ı1.1:"Press PL | 
T 8,79: DRAU S6,B: PRINI FAT 193, |! 
wm To Prinı", HT 3ı5,1;”"B To cıe | 
FBFAHK 17,15: To Feat FA” 7 
T ı9,1,'M To List character";AT 
er OA To poke character’ 
S20 IF ATTR (t,K)=48 THEN LET c | 
s21 IF ATTR tt,x)=8 THEN LET <= 
522 ARZNT „A AT t,k; OVER 1; PAPER | 
ns X 

524 PAUSE iz 

525 PRINT AT t.k: OVER 1; PAPER 
65 

> LET i 5=INKEYS 

535 IF i$='"r" THEN GO TO 42 

54a IF i$="5" AND k>2 THEN LET | 

.=k-1 LET s= 

>45 IF ig=" 

ee is='6' AND t<:5 THEN LET 
=t+ 

‚zso ır iS="7" AND t>1 THEN LET 
578 IF i$="8" AND KL<9 THEN LET 


ä P" AND ATTR I1,1 >88 
THEN PRINT AT t,k; OVER 1; PAPE 
- ec =1: LET zZIiUVd sz ft) > 


Sur: FRPER 6; OVER 


i$ 
SRBR SD TU 5S2R 


5#2 

4 THEN Go TO 722 
"@D FOR /=11 TO 21: PRINT AT F, 
“ nd NEXT 


F 

719 EHINT aT 15,0; "In which cha 
er’ 

739 INPUT LINE ag. IF as="" THE 


Ber BET © AR 


N Go TO 


232 LET a$=-3€£i1 


3$:'©8" THER 55 To Tao 


784 PRINT AT 135,6: 
"99 FRINT KT 19,9; FOR ({=1 TO 


f 
735 POKE’ (8# (CODE a5-2321 +64000> 


E 
745 FRINT FT 21,8; “Press any ke 


758 SD SUB 28. PAUSE ® 
788 FÜR f=18 TO er 1 ar Ff, 


778 so TU 30 

Bı1® FOR 1=32 TO 127. POKE 23607 | 
‚ PRIMT RR 1:: POKE 23687, 

z”:CHRS 1:” ”“;: NEXT 

z=e PRINT HT 21,56; ‘Press any ke 


E ©. SuS .» ©@& SUB 3 — 
FUR I=1 TO 2: GO SUB ı 


19010 FOR 9y=i TO 8. IF x)=c THEN 
FRINT FT t.,i#9: FRARBER i: ÖVER 1; 


Wh“ 


10538 LET <i=c.ä: NEXT 3: RETURN 
Er CLEAR : SAVE “Deaener»ator‘" LI 








Oma plätschert lustig in der Badewanne 
für den Spectrum 
Ein Programm für alle, die auch einmal von Herzen lachen können und das wiederum 
zeigt, daß alles, was im entferntesten auf die Arbeit mit einem Computer hinweist, wir- 


klich nicht stupide oder töricht ist und nach der von vielen so gefürchteten, volltech- 
nisierten Zukunft mit dem Computer aussieht. 


Wer kennt es nicht, das Gesellschafts- | Bekannte beim nächsten Besuch, indie | bis man ihn stoppt. Man sollte ver- 


spiel "Oma plätschert lustig in der Ba- | geheimnisumwobene Materie Com- suchen, ein Minimum von 20 Sätzen 
dewanne”? - Wir hoffen, daß trotz der | puter einzuweihen. einzugeben, da die Sätze so am absur- 
Bezeichnung des Spieles, unterderesja | Zum Spielabablauf: desten kombiniert werden. 


allgemein bekannt ist, sich auch alle | Jeder der Teilnehmer (je mehr, desto | Ein Tip von uns: Um Wiederholungen 
Großmütter mit ihren Enkeln vor dem besser), denktsich einen Satzaus,derin | in der Satzstellung zu vermeiden, sollte 
Computer niederlassen und kräftig | seiner Grammatik dem Titel ent- | mansich schoneinbißchen anstrengen 
mitlachen. spricht. Nun gibt man diese in den | und seine Sätze nicht nur nach dem 
Dies wäre übrigens auch eine prima Computer ein, der dann selbst solange | alltäglichen Wortschatz, zusammen- 
Möglichkeit, Verwandte, Freunde und | neue Satzkombinationen ersinnt, | stellen. 












2 REN PRPPPPPRrPPFPrrRrRRBRrR; S2 IF Fißt=i THEH SO TO Aa 
a SS IF FiSi=1 THEN CO TO 138 
35 MER’ + omAf FLÄTSCHERT + 182 IF Fi4)=4 TRAREN CO 3LB5 310D 
#4 REM + LUSTIG IN DER + 185 IF r(3)=1i1 THEN GO SuLs 32099 
5 REM + BSADEWANNE *+ 118 IF Fi2)=1i THEN 50 SUB 152 
E REM x * i1S IF Fiil=i THEN GO SUB 139% 
7 REM x © Matthias Loose + ize GO TO 42 
8 REM & 1932 “ 138 CLS : PRINT AT 108,2; "Neuer 
9 REM + x start mit’; FLASH 1;"C0 To 38" 
1QD REM ###+#H#H#++rı #23 tr +++ SsSToPp 
il RE 158 REM 
2a LOAD "umlaute"CODE un Be *%4 Eingabe ##=# 
2ı 6 
a; FLASH 1; "BAN 155 CL5 
ee 1608 PRINT AT 7,8, "Bitte die Sat 
23 PRINT AT 21,1; "(weiter mit ze genau wie in folgendem Bei 
irgendeiner Taste)‘ ee eingeben: (WICHTIG: "*" ,*" 
24. sE u 
25 BEEP .22,34.4 161 PRINT AT 13,8; "Oma/plätsche 
26 POKE 23583,308 rt/lustig/in/der Baä-dewanne" 
38 REM Ben an Dar 17,8; "ENTER allein 
+%% g93be!' 
BE 7 165 IF xi1>=x-1 THEN GO TO 178 
33 CLS : PRINT "OMA PLÄTSCHERT 168 INPUT (STAR ix1+1) 4", Sätz:- 
LUSTIG IN DER" y I); LINE 
34 PRINT : PRINT "BADEWANNE 169 IF i$="" THEN GO TO 179 
35 PRINT AT 7,28; "In diesem 5pi 178 LET x1=x1+1: LET y=1: Ler z 
2L werden zufällig Saätzteile mık =109 
z2inander kombi- niert.Es befi 171 FOR m=1 TO LEN ; 
aden sich noch ";x „I72 IF istm!«>"7" THEN GO To 17 
936 PRINT 'Sätze von letzten »Ma 5 
ki is Spei- cher, der insgesant 173 LET 5 Fipiu To m) 
waxinal ";x 174 GO Su (12B08>+Zz) 
32 “2 ajze Fant.” 375 LET yan>»i 
A 1,1, "(weiter mit 176 NEXT m 
IFRERdEInEr Taste)’ 177 LET es(xi}=i$i(y TO ) 
9 PAUSE 8: BEEP :802,34,4 175 GO TO 165 
48 REM 179 PAUSE 28: BEEP «1,25: RETUR 
#1 REM ### Steuerung #%*# N 
“5 &r® 181 REM Satzschleir 
*%% alLzsc e ee »2>#+ 
55 Bat Plänen, Plans 188 BES: Pazur «nach 
< BEN? - "Nac Jeden Sat 
‚51 PRINT AT 5,98; "1 Sätze z macht das Pro- ranm eine Pau 
bilden" 53€, die sich durch rücken einer 
52 PRINT AT 7,0;"2 Sätze Taste abkürzen Länt,." 
eingeben" 192 PRINT - PRINT "SPACE verlän 
PRINT AT 9,0; "3 Speich t die Satzschleirfe" 
er Löschen" ‚195 PRINT AT 21,8; (weiter nit 
«+ PRINT AT 11,0; "4 Progr irgendeiner Taste)! 
ann sven" 196 PAUSE 
et AT 13,2; "5 Progr au rar :3B2,94.4 
amnastop" 
SE PRınr AT 15,0;'"6 Einga 285 POKE 23892 ‚2585 
be Löschen" 287 RANDOMIZE 
7 PRINT AT 19,28; '2 Daten 218 LET z=& 
freigabe” a15 POnR n=1 TO 4 
sa IP <>"’" THEN GO TO 60 228 LET f =INT IRND#x1) +1 
sı IF IN =''" THEN GO TO 61 238 GO sus (888+n) 
TI 260 IF 10a) Lo, hEN en 
> m" ," rn 
a IF 1=@ THEM An N am 268 NEXT m "> To 270 
72 BEEP .22, % 278 LET eig TO a-1) +" 
. 75 LET fif)=1: PRINT AT 2#r+3, 253 tn 2800 
Fl. ; 
a8 Go To 60 388 LET r=INT (IRND#x1) +1 
8 BEEP «1,265 918 LET h z=eßs(r) 











R t 
259 P INT AT iz 
3502" ERLRT, 10,0 Sot, er spe 
Pd 
3268 ER TNKey._,, .r THen Go To I2ze 


*=189. Bey Max, 1ao Sy, 
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Roulette 


für den VC-20 


Die spannungsgeladene Atmosphäre beim "Roulette-Spiel” nur einmal miter- 


- RR Se ER Ber RO Teer DRAKE nA En Ruchon nmel neh len rer 
a a a ann en. enn der Mensch ist bekanntlich von atur aus ein "Spieler 

10 RETTET NE Ein Zustand der wohl kaum zu leugnen ist, vor allem dann nicht, wenn man = noch 

11 m” # einen Heimcomputer besitzt. 

i2 # ROULETTE # Aber bevor es mit Ihnen durchgeht und Sie beim echten Roulett gleich Haus und Hof 

3 u Fi verspielen, wie man so schön sagt, hier eine Kostprobe auf das, was Sie in einer Spiel- 

14 # <C) 1963 BY # bank erwarten würden. 

15 # ” 

ie 4 THOMAS KESSLER %# 

17 & PITSCHUIESE 35 # 

18 # 6696 ST.WUENDEL # 

19 # % 

PA 77 22 2, 2.707707 2705 7027070707 

1808 POKE36379,24 :PRINT'’Ia ir a | 

i1ö PRIHT"Z WEDER “PIELER HAT ALS @NFANGSKRAPITAL 18.888 —\ ZUR E 

RFÜUEGUNG. 

115 PRINT" MIESETZT WERDEN HIPS ZU JE 1806 I. 

128 FRINT" WPIELEN “IE GITI AMOIEVIELE #PIELER (1-9)? 


125 GETPEA IFPEA<1BANDPEX>OTHENPRINT "IM" PER" @PIELER" PRINT: 00TO138 


i26 G0T0123 
138 FORI=1TOPEA:PRINTI"M.@PIELER" ; : INPUTPES<I): IFLENCPESCIIIISTHENPERCTDALEFTEC 


E#41),9) 








135 
148 
2008 
220 


&36 


NEXT 
FORI=ITOPER :DM<CI)=100060 NEXT 
FORRE=1TOPE# : IFDMCRE)<=BTHEN229 
GOTO3SBH 

IFDM<REI=OTHENEIZCRE)=B : SURCREI=B:ROKCRE)=B:AAKCREI=0: BBYCRE)=D DEA<CRE)=93 UN 


“cRE)=B 
235 IFDMCRE)=BTHENARD 


258 GOTO48D 
388 GOSUBSGQD 


4808 NEXT : GOSUB7098 : G05UB5099 


4933 
11215) 
818 
5828 
5825 
S038 
5835 
>0848 
3845 
50508 
5055 
50565 
857 
5Bd68 
836 
5188 
S11® 
128 
34398 
588 
6086 
6818 
6015 
6022 
6025 
6838 
6188 
’808 
7818 


07825 


7815 
7820 
7825 
7850 
7868 
7878 


8288 RETURN 
18888 DATA1,3,5,7,9,12,14 


GOTOZBS 


FÜKE36879,219 


PRINT" 


PRINT" Im22 


PRINT" IMAHL 


2) I De un u u 
PRINT" EI A IMOZU ES ImOA SM INDEEIR7AL"; :GOSUBSSOR 
PRINT" IMOSA DIA IMIOMIMILAINIZEIMISEMLAEIR ; GOSUBSSOR 
PRINT" WISE MSAIMITAINISAIMLITEIMZORINEIM" ; 1 GOSUBSSOD 
ES EZ EIAIZEAINET7EIN25 A" ; :GOSUBSSDR 
PRINT" IB2SA ISO 4 Im312 18323 BS3a 13441354"; GOSUBSSOR 
PRINT" | 
PRINT" TAmIBBI"PES<RE): PRINT "FRAPITAL:",DM<RE) ; 
">: INPUT"’IERNMBI' ; ZAZIRE): IFZAA RE) =ÖTHENSOGSDQO „ 
IFZARCREI<IORZAKCREI>SETHENPRINT" IT] :GOTOSOSS 
INPUT"TBBRBBBBBBI INSATZ' 
IHPUT" BSCHWARZ" ; SUR 
INFUT"i1-i8 ";ARZ 
INPUT'"GERADE 


a: U = 


IFZRACRE)=BTHENEIRKLRE)=O 


DM<RE)=DMCREI-1SOWLEIHCRE)+SUN 
RETURN 
PRINT" 
FRINT"' am 


1 + 
J’ 


“PIELSTAND 


‚EIA’CRE) 

CRE> : INFUT'TBWBHBBBBBBBBRUT" ;RÜXCRE) 
«RE? : INPUT" TIBRBBBBBBBBIL 9-36" ; BBÜCRE) 
";GEAKRE? : INPUT" UNGERADE" ; UNZCRE) 





«RE +ROACRE)I+AAZGCREI+BERCREI+GEXCRE)+UNZCRE)) 


"RETURN 


FORI=1TOPEA:PRINT"E"PEFCIY,DMCID "N" : IFDMCII<=BTHENGOSUB28088 : DM<I)=@ 


NEXT 


KO=PEA : FORU=1TOPEA : IFDMCUI=BTHENKO=KO-1 : NEXT: IFKO=QTHEN END 


PRINT" mm 


OEITER MIT mare ı" 


GETY&: IFY£<>" 7" THENSB3O 


RETURN 


GZA=INTCRND<1)3#37) : PRINT" TIneg 
RESTORE :FORI=1T018: READRFA : IFRFA=GZATHENFORL=1TOPEA : SURCLI=B : NEXT: FAZ=2:GOT 


NEXT 


/ICHTS GEHT MEHR!" : IFGZ4=8ÖTHENSBBOS 


FÜRL=1TOPEA :ROA<L>=8 : NEXT :FAZ=1 


FÖRL=1TOPEA: DM<L 
IFINT(GZ%/2)=G2% 


GEA=B : UNZ=2908 


FORI=1TOPEA : DM<IY>=DM<I)+G 
IFGZA<=18THENBBA=B : AAZ=29 


BBAZ=208 : AAZ=08 


FORI=1TOPEA : DMCI)=DM<CIY+AAZa 
FORI=1TOPER : IFZAA<CIY=GZA 


NEXT 


L5=36678 : POKE36B74, 247 


FORI=BTORND< 142098 :POKELS, 
FORH= 


>=DMCLI+ZBO#CROACLI+SWACL)Y I :NEXT 
/<THENUNZ=3 : GEA=208 : GOTO7O78 


EAWGERCTI +UNZMUNAGCL) NEXT 
9:G0T07838 


AAACID+EBAÄMBBAÄCI) : NEXT 
THENDM< ID=DMCIY+EIZKCIIH3SDOH 


8:FORL=1T058 : NEXT :POKELS, 15: NEXT :POKELS, 
SBTOZBBOSTEFI® POKELS, 8: FORT=1TOH : NEXT :POKELS, 15: NEXT 


PRINT" DIEB" ;GZi; :ONFAZGOTOSBZE , 3027 
PRINT"#" :GOTO8839 


PRINT" mM" 


PR!NT"TIBBBBbBbbI.ü Ms KENBEIG Ib EEE we" 
PRINT" GEITER MIT ara |" :POKE36878,8 
GETS# : IFSS<>" 1" THENSBSG 


200609 FRIHNT'"TIEBBbBbBbBBI 


‚16,i18,19, 


21,23,25,27,30, 32, 34,36 
"RETURN 











Computer Blues, Mad Boogy 
& Cool Rock 


für den VC-20 


Wenn Ihr VC-20 diese drei wirklich gut programmierten Songs über die Fernsehlaut- 
sprecher ertönen läßt, werden wahrscheinlich die meisten von Ihnen vor Neid erblas- 
sen, aber es sich trotzdem nicht verkneifen können, Ihre Glieder im Rhythmus der Me- 


lodie mitzucken zu lassen (uns ging es nämlich ebenso). 
Aber warum lange andere beneiden, mit einem bißchen Taktgefühl -in musikalischer 


Hinsicht - 


und Geduld, gelingen Ihnen bestimmt 


ähnliche 


Meisterwer- 


ke. Vor allem könnte man auch mit einem kleinen, passenden musikalischen Vorpro- 


gramm, 


dem eigentlichen 


Spiel, z.B. bei 


besonderen "Pfiff verleihen. 








Computer Blues 

Nach RUN spielt der VC-20 ei- 
nen 4-stimmigen Blues. Nach Beendi- 
gung der Melodie kann man den Laut- 
stärkeverlauf wählen und der Song 
wird wiederholt, nun jedoch mit dem 
selbstgewählten Lautstärkeverlauf. Ei- 
gene Hüllkurven können program- 
miert werden, indem man eines der Un- 
terprogramme schreibt. Die Geschwin- 
digkeit können Sie modifizieren, wenn 
Sie die STEP-Werte in diesen Zeilen 
ändern (auf die Vorzeichen achten!) 
Die Hauptstimme ist in Datas abgelegt. 
Die Schlagzeugbegleitung kann eben- 
falls geändert werden, wenn Sie die 
Zahl (hier 3) in Zeile 230 umschrei- 
ben. 


Mad Boogy 
Nach Starten dieses Programmes spielt 


Adventure’s usw., 


noch einen 


























der VC-20 einen bekannten Song 3- 
stimmig. Die Hauptstimme ist in Da- 
tas abgelegt. Bei jeder in den Da- 
tas auftretenden 255 ändert sich die 
2. Stimme auf die nach der 255 stehen- 
de Tonhöhe. Das Schlagzeug meldet 
sich am Ende jedes Taktes mit einem 
Crash. Wenn die Zahlen, in der 
O(x)=1 ist, geändert werden, än- 
dert sich auch der Takt der 2. Stimme. 
Die Geschwindigkeit kann man ver- 
stellen, wenn der STEP-Wert (ursprün- 
glich -.9) in eine andere negative Zahl 
umgeändert wird. 


Cool Rock 

Dieses Melodieprogramm spielt ei- 
ne bekannte Melodie 4-stimmig. Die 
Besonderheit ist, daß die normaler- 
weise lange Melodie durch Ansteu- 
erung, durch Ablaufstrings und vorge- 


schriebene Baßbegleitung in DIM- 
Variablen auf ein Minimum verkürzt 
und sehr leicht umänderbar gemacht 
wurde. Ein Beispiel ist TA$ (Taktstring) 
in Zeile 260. 

Die 6 Zahlen ersetzen 6 Viertel des Be- 
gleittaktes (Geräuschgenerator). Eine 
0 bedeutet Pause, 1: tiefer Crash, 
2: hoher Crash. Wenn man diese Zif- 
fern umändert, kann man jeden belie- 
bigen Takterzeugen. Ebenso kann man 
den Dur-Verlauf der Hauptstimme 
(sie ist in Datas abgelegt) verändern. 
Der Dur-Verlauf ist in ABS (Ablauf- 
string) abgelegt. | bedeutet: C-Dur (E- 
G-C’), zwei: F-Dur (F-A-C"), drei: G- 
Dur (G-H-D’). Während des Pro- 
grammablaufes erscheinen insgesamt 
drei Bilder, diedas Musikprogramm er- 
klären. Nach der 6. Wiederholung 
stoppt das Programm. 








Id REN ———— 


458 


REM" 1 
REM"IH. GEHRMANN # 
REM"B HEINRICH- 4 
REM" STR. 25 | 
REM'ES HANNOYER 4 
REM'"B TELEFON ' 
REM"IQS117344771 I 
REN —. 
REM" 
PÜKES36879, 253 
PRINT" TEESHG-SUFTHARE PRESENTS :m" 
PRINT" SIND BRBEETHE MAD BOUG!Y" 
FRINT' RK Br" 
FRINT'eR HÜLGER GEHRMANN” 
PRIMT" SORDAIEDR ED NETETRDRTSTKUNDERT] 374 TONES 7 28 3EC.#" 
0KDD=1:066)=1:067)=1 
y=195 
FÜR#=1TOi8E 
RERDT : FOKE36877,0 
IFT=255THENREADT : Y=T :NEXTX 
ZE=ZE+1 : IFZE=I3THENZE=1 : POKE36877 , 250 
IFOCZE)=1THENPOKE36875, Y : POKE36874 , 
IFO<SZE)=BTHENPOKE36575, 9: PÜKE36374,0 
POKE386876,T 
FORY=12TO1STEP-. 3: POKE36878, Y:NEXTY,X 
RUNI17B 
DATR215, 219, 225, 8,0, 225, 225,8, 219, 215, 219, 215, 203, 297 ,195,0 
DATAR215, 219, 225, 08,8, 225, 225,08, 219, 215, 219, 215, 203, 207,195,0 
DATAZSS, 163, 201, 283, 281,195, 183, 195,0,08 
DATRZSS, 163, 201,203, 281,195, 193, 195,0,9 
DATA17S, 163, 255, 195, 195,08.8.8,0,8,8,0,0,0,0,0,9,8 
DATAZ15,219, 225,08,8, 225, 225,08, 219, 215, 219, 215, 203, 297,195,0 
DATRZ15, 219, 225, 0,8, 225, 225,8, 219, 215, 219, 215, 283, 287, 195,0 
DATR2S5, 163, 201, 283, 201, 195,183, 195,0,D 
DATRZSS, 163, 201, 283, 261, 195,183. 195,9,0 
DATR17S,183, 255,195, 195,8, 09,0,2,8,8,0,8.0,0,0,0,0 


DATAZB1 . 207,255, 179, 215,0,8,215, 215,8, 201,283, 255,163, 281,195, 133, 195,0,8 


DATRA175, 183, 255,195, 195,8,9.0.08,8,8,0,0,0,0,0,0,08 
DATA175,183, 255,195, 195,.8,0,8,08,0,8,8,9,9,0,0,0,0,0,0 











HENL3S 0'304 ALXNSN ATIN0OJI:SAILSZTOLA=-ANOJF 025 
NSNLIDS.ALNIN A NIRDOH 1-HILSOHOLTT=ANND-4 ALNFZN ATINO4: TIFILSZITOLA=ANOJ 915 
NANL3M: ALXON:ATINOIIS'-JFLSOOLZIT-ANDJ 095 

HAINL3M: OSEANSOO: T 'BETINOJI: U=43 O6 

MOPNFHLECHNOT>MIL I CH) IHA=N  SNL30 09% 

„LI3IYJI-MISOIE 3 EC E BM.ININJ BLr 

„LIINUSE BE zZ E MD.LNINd 99% 

„UWUNOHNE 5 TR BN.LNINd 05% 

193442 NAT 315 N3WmH3aUM 3LL1IamM.LNINd Opb 

‚M SSAHC SINE N3LNdWOI ERTC.LNINJ BEr 

NMNIL3S:091T '’595+12330J 982% 

BEDPSTAINFHLTEICEIWIEY)ANITIINDFEI=- (EIBIE)N33IIFST : BB9IL=IT DIr 
um | ONINNMM SI Sana ET. NIS OO 
„NNHUNH30O 33070H Bu.iNIYdJ BGE 

„Aa “WIM. LNIMJ @BE 

„SanIg W3LNJUOTEE EEE. LNINJ QLE 

Mi SW3lSAS 34UMLJOS-HH BEL„LNINJ 99€ 

ES2 '6L8I9EFMNOJ BSE 


O5 10109 : BEFENSOI: 3YOLS3YU: T"’-0=B BrE 

2'8’'0'B’a'0‘8‘a'a'0'9‘8'8'8'8'a'0'0'9’'OULYU BEE 

8'8'8 

"SEI 207 B’EBZ'232 'B'SZZ (E70 22'522 8 Szz 08'880 'a'Sz2'0'a’a’9a’a'SszzuLlud B2E 
B’'8a'8‘8'0'8‘'9'a'D0'8'0'B8‘8'8'a'a’9a'a’'a'aulLya BTe 

8'8'8 
"561'282'’8'C82'202'0'202'282'8'S1zZ'612'8'822'0'B'0'8'0'822'8'0’8'0’9'SZZULUA DBE 


2'9'0'90'9'8'8'8'8'8'0'3'0’'9'9'3'0'90'9’9'9’auL4a 062 

8'561 ’2 

BZ 'SsIz'EBZ'282'ST2'E82'282 SITZ ’SIz'EI1Z'B'S22'8'B'B’8'9'SzZ'a 8'909 'SZZULYA 882 
B’'a'B'a'B'a'a‘a'a'B'a'a'B'a'a'B'a'Da a 'auLul az 

8'8'8 

"S61'202'0 E02 207 'B'CBZ 282 8 'Sız 'EIZ "0'522 'B'B 8 8 'a'S5z2'u'a’a ae 'SZZzULUN 892 
KLX3N 025 '0TS 'BBESaNSOOJ3ND 2S2 
’OH)9'TLFMANDINFIHLOCDC3Z OH) LAT: CIZ’OH)L'ZL3NV0J:9’TLIINOI Br2 

EpZ '2289E3N0JNIHLE=323I BEZ 

8'2289E3N0J4:UL'ELFDIOI ULAYFU 922 

B=OHN3HLP=OHJT T+OH=OH  O=NNIN3HLPF=AA HT 9=3Z : THNAT-NIN3HLI=3Z4I : 1+3Z=3Z BI2Z 
181019=-X403 882 

0=41 : 8=9H : 1-=32 1 8289E=7]: ILBIE=EL : S/8I9E=2Z1:PL89E=TL B6T 

szZ=i 2)0 S22=(9)0 2EZ=(SE)D SEZ=CH)D: 5Z7Z=(E)H:ZEZ=(ZIN:5ZZel 1)0.522=CB)D BUT 
2l2=(G'2)1 Buch’ 2)1L ETZ=(lE'!2)L:5IZ=lZ’ 2) 1Lı1O=lT 2) L:ıSTZwlB 2) L 821 
2T2=(5'9)L:Belh'I)L:6EIZwlEIHLIıCIZ=LlZ'I)L:BwlT'I)L:51IZwelB 9) L 891 
E?Z=(S'S5)1L:Belh SI 1: BZZwulE ES) LIıCZZ=lZ'C)L:@wlT SC) L:5ZZ= (UBS) L BST 

L?2= (ap) L B=lh'p)L. TEZ=ECEHIL:BZZe (ZH) L:O=lT'P)L:8Z2= (CH p)L OpT 
2I2=e(S’EIL:BelH’EIL:EIZ=(lE'E)L:STZ=CZIE)L:ıG=CT'EIL:SIZ=(B'E)L BEI 

EZ (GIZIL:O= lH! ZIL BZZ=CEIZ)L:5ZZ=e (ZI 2) LıBw CT ZI L:52ZılB zZ) L 021 
212=(5 VD 1L:B=Ch TIL EIZ=lE'TIL:STZ=elZ TI) L:ıO=lT’TIL:SITZ=lB TI) QTI 
e1lz=(n'B)1l BelH'OdL:6IZ=CE'BIL:SIZ=CZ'B)L:O=lT’B)L:CIZ=(Q’B)L 99T 


BSERNSODn 86 
I=J3:£'-=D 988 
„HI 92 
0000009900090 8 © 0.134 89 
BTLZbPE 
(1150)® % NOJ3131L © @ Ci 07T M3AONNHH E8,.W3M OS 
E 
© 5 ze I ®°’MLSHIIMNI3H® » “.4W34 Or 
® NNYWS 
H35’H ® 15} v % AA 62 [7 “.43% BE 
e sınıa 
® ® -M31NdU0I ® a u 00000800060 0888 „LI3N DZ 
«WIM OT 
m a 
I an SEI sm — un 
4 ” ® ze ‚s r — = zz mn _ — > 
— I a os— 5 == = = === | 


SNL3% 1. "N3WMOM NILIFNOINHN-3ONN-LAIUL MZ S3 NNMM’LMMINNI3 L13Z 3U30L.1MIN4 
' „MA N3NHI3SSNH Sum AnMINaaanm LU3N3LS3ONH N34-OLUNSNSONODL 3TW WAE„INING 
” (WET) EUHILNINI: ee, a ee 
D 3m "m ZWWILSY3LNN-ZZUr 8 3140734 v - 

VL „!NaWWILS PL3LTUHNISE 3100734 310.1NT4d4 
(bHTI> IST * „BEE. INT Ud 
NA L3M 
„"LOFT304Y ee ne 

t„WHIad NI M300 SONINLS-UW-3HI9S NI M302MLNZ ANISN3WWILS NSHITILS3S B3IEE.LN 
„"l0371304uS,YiUA NI LSI WWEHMIS-NISNULdINUH „SUA MNNM.LNTUd 
„MILZM3NYY3A WNWINIWM NI3 INH S32A4NM N3ENNNHI34 N31.INIUI 


-31A LIWIS.YLYA N3HIH4-NI3 LIM UNN IHIIN LSTWMHNDONI-ITSNIU er 
BrE'B’Z’Z’T’E’E’Z'T "T’E’Z’Z’T’B'E'Z2'T’TULWA 
QN3: „Eu LNIUd4: LXSN 

819 '955 '019’055 '819 ’aSSansoonno 

Z’S 'MLXSIN: STOLT=-FINOS 

e’rD00J 

CE’CCET'Z’ SAU) SLTW) THAI 'ETIOJNFEHLZTSKNOS- NIT 
ertcer N SO an zunen 
CDIOINIHLZuN 

892 'LCIIOINIHLTI=UIT : CCT'LZ’SUL)SAIW) TdAu 
T=LZN3HLZ= 1241 ı T+LZ=12 
Cau’CcCT'Z’ Say) ST TU) ISA) 'NEDIOA 

T+dU=du : @=3ZN3HLE=3241 : 1+32=3Z 

(Zz’ I) 1 'WEDIOd : JA 


NAIA-AERRSSIITDS 
\ . - 
‘ wo = 


67 
9333359885 


b*) 
-_ 
L 
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SZ2=(IE)L:EIZ=CI Z)L: 6B2ulIT)L 

BZZ=(S'E)L:EZZ=(CS "Z)LıSTZuCS Ty 1 

SZZ=(P’E)L:STZuCH'Z)L:20Zuclh’TyL 

SZZ=(E’E)L:EIZwlE’ZIL:5BZ=CE TIL 

SZZ=(Z’E)L:SITZwlZ ZZ) L:202=lZ2 IT) L 882 

S2Z=lT'E)L:SIZwCT’Z)L 292=l 1 TI) L 822 

„Su219T,.=84L 892 

„TIIZEIZIT.„=sEYy Bsz 

EZZ=(B’E)N: 

BZZWLLIEIY TEZECH (EIN: ZEZ=CSEIY: TEZECH EIN BZZELE EIN: EZZulZ’EIN:ETZ=LT EIN BH2 
SIZwu(B'zyyı 

SEZwLLZIM:BZZWlI ZINN 6ZZ=CS ZINN BZZeCH 'ZIN STZwlE DIN: EIZwLZ ZI: SOTwLL'ZIN BEZ 
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5 REMSEETZITIZIIIITTT UMEE I 1 TB CH 0 EN EZ Z 1 U 1 2 2 0 A EEE BE EAN 
Die Do * 

5 REMONEAEN NEE EEE BEE I BE AUT RE EEE 1 RE BOHEZAMEZZIZZZZIZIZZD 
427772) 

“ REMIB@IABSEMN 

& POKEEST , 126 POKE368693, 205 : FOKE36379, 25 

9 PRINT"7" :RESTÜRE 


18 
il 
12 





IFSi=1THENK1=B:G0OTO41 

AN=3 : GOSUB1 7: GOZUB36 ' GOSUBI? 

AN=2 : 5GDOSUB17 :GOSUJB36 : GOSUB37 

ARN=2 : GOSUB17 : GOSUB3E ' GOSUB37 

ARN=4 : GOSUB17 : GOSUB36 : BOSUB37 

AN=3 : GOSUB17 : G0SUB37 

GOTO42 

FARI=1TORAN:RERDAF 

FORJ=1TOLEN(A$) :B$=MIDSCAS,J, 1): FPRINTB$; :GOSUB21 : FORY=1T05B 'NEXT'Y 
NEXTJ:FRINT:NEXTI 

RETURN 

PCKE36878, 15: POKE368976, 168: FORM=1TO18 :NEXTM : POKE36878, 8:RETURN 
DATA! IE 247mm — 

DATA" Lamm DD+FHTER Hi 

DRTR! me 
DATA"TIIBG@HM9B83 Br R.BREURLEMI" 

DAT RT I! 

DATA'"T IE ANLEITUNG 1" 

DATA" De Er 

DATA" TASTENBEDEUTUNDEN: " 

DATA"XEINGABE MIT SR-HE & 1-8" 
DATA"LOESCHEN MIT <IELED " 

DATA"MSPRINGEN MIT <SRETURNED" 

DATA" WAELE SPIELANFANG : " 

DATA'’O SSE = SFIELER = BeomEmWl 

DATA'’M BCE = COMPUTER = BReRiikt" 
FORK=1T02222 : NEXTK :RETIJRN 

POKE36878, 15: FORL=235T02085TEP-1 'FOKE36877,L 
FORX=1T018:NEXTX 

NEXTL : POKE36878,B 

Si=1:6C0T012 

RETURN 

Ss "' MSHHIKIKDIKLKIITEDKINDKDKDATRIKDKLIKDE IKT" Si e=} . 
GETA$: IFA$="'"THEN43 

IFA$="5"THENSC=3 : G0OT048 

IFA$="C'" THENSC=&: GOTO48 

GOTO43 

REMLIEENEIGEI 

FORK=39T0168 : POKE3EBB1 , #4: NEXT 

GOSUB1B1:' REMMSPIELFELD 

FORK=168 T0395TEP-1 : POKE3ESS1,#:'NEATX 

PRINT" a"; :DIMRC4),5(7,77:G=-1:R(O)=-99 
DATA1,3,1,3,8,3,-1,3,3,1,3,8,3,-1,3,-1,15 
DATA1,3, 1,3,8,3,-1,3,3) 1,3,8,3,-1,93, -1, 15 
DATA1,3, 1,3,8,3,-1,93,3, 1,3,8,3,-1,9, -1, 15 
DATR1,3, 1,3,8,3,-1,3,3, 1,3,8,3,-1,3, -1, 15 
FÜRK=DTU7 

FORY=BTO? 

RERDJ: IFJ=15THENGQ 

SCK,77=J'GOTO61 

READS<#, 7? 

NEXTY,#: IFSC=6THENG63 

IFSC=3THENI123 

FORX=DTD7 

REM E A ROELLAIK) 

FORT=ATN7 

IFS(CK, YVIY>-1THENG? 

IFS(K, T>=-1THENFORA=-1TO1STEPZ : B=6 : GOSUB7B 'NEXTRA 
IFS(CA, T)=-ZTHENFORA=-1TO1STEPZ : FOÜRB=-1TOI1STEPZ : GOSUB7B :NEXTB,R 


HEAT'T,X:GOTÜIB6& 


ee DT IE En 









| 


INN NMNUNNNS 
DNINULORB- © 


Jer+A:v='r+B IFU<OORU>FORY< v>7 -- 
IFSCU, VI=ATHENGOSUB?E :GoTorS EN?S 
IFSCU, VI<OTHEN?S 
JSU+A: VEV+B: TFUCBORVCOORU>TORYITTHENTS 
IFSCU,VI=BTHENGOSUBTE RYPTTHEN?S 
RETURN 
IFV=@ANDSCK, 7)=-1 THEND=0+2 
IFABSCY-V)=2THEND=0+5 
IFY=7THENG=G-2 
73 IFU=BORU=7THEND=0+1 ” 
88 FORC=-1TO1STER2: IFU+C<BORU+C> TOR: 
61 IFS{U4C, V+GYCATHENG=+1 :G0TORu TO COTHENB4 
2 I FUCCBORU-C>7ORV-G>7THENB4 
83 IFS<U+ ‚ 4+6> >BANDCSCU-C, V-BI=BORCU-CeXANDY-GeY) THEND=Q-2 
84 NEXTC : IFODRCDITHENRDISH RC IIeN RD. =U!R/4)= 
ee IEKRKCDENERCHEU IRA) 
86 IFR(@)=-IITHENISO 
57 REMIDURNRDTN GE 
88 PRINT"'IUN " 
89 PRINT'aN A" CHRSCES+HRCIHYH) "m, "RIZ)+L"- g' 1 + T y +1;: )m— 
38 IFRC4)=BTHENSCKR(3),RC4))=-2:G071092 ag ten 
91 SCRCH,RCA)Y=SCRKI),RC2)) 
92 SCRC1I.RCZY)=B: IFABSCRCLI-RCHIICHZTHENIE2 
93 SCARCHLRLHHY/Z, CRCZIHRCHI/2I=0 
34 KSRCS)  V=RC4)  IFSCH, 7)=-1 THENB=-2 : FORA=-2T02STEP4 : 00SUB3I8 
73 IFSCK, Y)=-2THENFORA=-2T02STEP4 : FORB=-2T025TEP4 : GOSUB9B: NEXTE 
36_NEXTE IFRCBI<D-35THENFRINT; "- BCHRSCESHRCH I", "RC4) +1; "IRERRRT" ; !RCBI=-99:G 
97 GOTO182 
98 Uex+A: Ver+B: IFU<SOORU>F7ORYCBORVITTHEN1OR 
93 IFSCU,VI=QANDSCH+A/Z, T+B/2) >OTHENGOSUB7E 
iBD RETURN 
121 REM ER 
182 PRINTSS"M'+S1$+S1:" m" 
183 FORY=7TOBSTEF-1 
184 FORX=8T07 :PRINT"M"; 
185 IFSCX, YI)=3THENFRINTTABCZI" MM 7°; 
186 IFSCK, TI=8THENPRINTTABC2) CORP" ; 
187 IFSCK, Y>=1THENPRINTTAB<2) "SOFT!" ; 
183 IFScK, Y)=-1THENPRINTTAB<2) "AONEHeRT]" ; 
1983 IFSCK, Y)=-ZTHENFRINTTABCZ "RACHEN" ; 
118 IFSCK, Y)=2THENPRINTTABC2) SORT" ; 
111 NEXTX: PRINT :PRINT : NEXT’ 
112 REMIINDERIZEE ISO 
113 FORL=8T07 
114 FORM=8T07 
115 IFSCL,M)=10RSCL, M)=ZTHENZ=1 
116 IFSCL,M;=-10RS<L,M)=-2THENT=1 
117 NEXTM,L 
i18 IFT<>PITHENIGI 
113 IFZ<>1THENIEDO 
128 T=8:2Z=8 
121 REMIS ET 
i22 POKE284,1 
123 PRINTSS+S18SF" VON"; 
124 POKE294,0:GETE$: IFE$=""THEN124 
125 IFASCCEF)<ESORASCLESF)I>TZTHENIZ24 
126 E=ASL(ES): PRINT" WER"B,";:E=E-65 
127 RETHS$: IFHS=""THEN1Z7 
128 IFH&=CHR$(C29> THEN122 es 
123 IFASCCH&)<A4SORASC<HEI>56THENIZT 
130 POKE284, 1: H=YALCH$) :PRINTH, !H=H-1 
131 X=E:Y=H: IFSCK, TI <=DTHEN123 
132 PRINTSS,S185#, "NACH"; 
133 POKE294 ,9: GETR$: IFA#=""THENI33 
134 IFA#=CHRE(20) THENIZ22 
133 IFASCCASI<ESORASL(AS)>7ZTHENLI3 
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136 
151 
132 
133 
174 
135 
136 
197 
175 
153 
zo 
201 





A=ASCCA$>:PRINT' aRE'E,"',;  A=f-65 

GETB£: IFE$=""THENI37 

IFB$=eCHREC29) THENI 22 
IFASCCBE)I<ASORASCCBEID>SSETHEN.I7 

FOKEZB84, 1: B=VAL(CB#) :PRINTB: B=B-1 

A=A:Tr=E 

IFSCK, V)=DANDABSCA-EI<=ZANDABSCA-E)=ABSCB-HITHEN44 
S5OTC132 

S(A,BI=SCE,H> :SCE,H)I=B: IFABSCE-AI<DZTHENI SE 

SCKE+A) 72, CH+B)/Z)=8 

PRINTS$;"M" /518+51$; :PRINTS$"UND" , "NACH" ; 

POKEZB4 , 8: GETA1$: IFA1$=""THENIA7 

IFRI$=CHREC13) THEN1SS 
IFASC<CA1LSI<ESORASCCA1SI>7TZTHEN47 
Ri=ASCCAIS):PRIHMT" AI," Al=Al-65: IFAL<OTHENISE 
GETBIS&: IFBi$=""THENIS1 
IFASCCBIS)<4IORASCKBIFIISSTHENISI 

POKE294 ,1:B1=YALCB1$) :PRINTB1; :Bi=Bi-1 

IFSCAL, BLI<DOORABSCAL-AI<HZORABSCBI-BIC>2THENI4E 


3 E=R:H=B:A=Al:B=B1:GOT0144 


POKE2B84, 1: IFB=7THENSCA, B)=z 
PRINT" 

GOTOS3 

REM AERET R 

A$=" DER COMPUTER HAT ":G0TO162 


As=" BRAYO, SIE HABEN " 
GOSUB164 : GOSUBIi63:FOKE19B,0: WUAIT1F8,1:RUN 

FÜRI=1T023:G0T0165 

FORI=23T01STEP-1 

POKES6867 , ZMI ' FOKE36B66, I-1 ' POWE36864 , 13: POKE36365, 82-INT« Irz)#4 


NEXxTI:I=8 
FRINT"' narmnn" 
PRINT" ATi» »v ne 


PRINT" /Miek UDAME “a 
PRINT" # 4 — u u Du 
PRINT" IB@#’M1983 BY R. BREURLERN I" ; 
PRINT" 17 
PRINT" IBER3EENIS :l" 

PRINT" =— 
FRINTAS; "DAS" 

PRINT'® SPIEL GEWONNEN I!" 
PRINT" zum. NOCH EIN SPIEL ?' 
PRINT"® DANN „.." 

PRINT" zum FRESS Ahr KET I2":RETURN 
REM Ol 

PRINT"ZEN " 

PRINT's ne | 
PRINT" AB 20 a0 9 27 5 
PRINT''SSEWME 04 0% 0 2 52 
PRINT" ame 24 0 m I" 
FRINT’EEAmr 0m 44 #1" 
PRINT" ae 24 00 49 07 
FRINT'GERAE 04 44 04 “rl an 
FRINT" 28% '"ı Yı > 
PRINT''SEArFM ' Yı mut 
PRINT" AB "% "da Ya Ti 
FRINT'ZIEAE '% "Ti Yı 7 mi Zz u 
PRINT" 00 © 0 0 I" 
PRIHTT'zZIASwIı m m m u” 
PRIHT'" aa © 0 _ In] 5 
PRINT’'zZIAE rm m r.' 
FRIHT" a0 so “0 »0 %3' 
PRIHT''SIsSaAIı rn pr 5? 
PRINT" " f 
PRIHT'Z AED EHF GH" 
PRINT" MOHN", "NACH" RETURH 











Bei diesem Spiel ist das Ziel 
verschiedene Arten 
sehenswert ist, zu 
langsam geschrieben 


m einen, da 


Munchman 
für den CBM 3032 


wird, zum 


Progrämmchen enthält. 


Das Spiel hat drei Schwierigkeitsgrade; 
Den ersten sollten alle Anfänger wäh- 
len, der zweite ist für Fortgeschrittene 
und der dritte eigentlich nur für Profis, 
da einen das Gespenst im nu 
eingeholt hat. 

Der Schwierigkeitsgrads steigert sich 
nach einer bestimmten Zeit während 
des Spiels. Die Figur Munchman wird 
vom Spieler durch die Tasten 2,4,6 und 
8 nach oben, nach unten, nach links 
und nach rechts gesteuert, wobei er 
ständig von dem gefräßigen Gespenst 
verfolgt und unter Umständen auch ge- 
fressen wird. Im übrigen hat der Spieler 
drei Leben und kann sich durch Übe- 
rschreiten der 7000- bzw. 14000- Punkt- 
grenze noch einen ersten bzw. zweiten 
Bonusablauf dazu verdienen. Hat er 


PRINT"Q" 











das Labyrinth leergefressen, so be- 
kommt er ein neues. 

In unregelmäßiger Zeit erscheinen im 
Labyrinth kleine Piks, die aber nach ei- 
nıger Zeit wieder verschwinden. Be- 
kommt Munchman die zu fressen, er- 
höht sich das Punktekonto des Spielers 
um 100 Punkte. Für jeden normalen 
Keks gibt es 8 - 12 Punkte (Zufall). 
Gleich zu Anfang fallen wohl die 
blinkenden Herzchen in den vier 
Ecken des Labyrinths auf; frißt die 
Spielfigur sie, so kann sie für unbe- 
stimmte Zeit das Gespenst auffressen, 
wofür es saftige 500 Punkte gibt. Bei 
diese Aktion ist übrigens Vorsicht 
geboten, 

Uns ist es schon mehrfach passiert, daß 
wir dem Gespenst schon sehr nahe wa- 


TsIsIsIe'' 


zu d :G05UB230 














‚ möglichst viele Punkte zu kassieren, was aber auf drei 
geschehen kann. Das Spiel beginnt mit einer Einleitung, die 
sie (wie bei den großen Arcade-Spielen) ganz 
anderen, da sie ein 


kleines Demo- 


ren, als es sich wieder zurückverwan- 
delte, sich umdrehte und unsere Spielfi- 
gur fraß; da wir nicht mehr schnell ge- 
nug reagieren konnten. 

rigens, das Labyrinth ist mit zwei 
Ausgängen ausgestatten (man kommt 
jeweils am anderen herein), durch die 
das Gespenst nicht gehen kann. Also, 
wenn einem das Gespenst mal wieder 
dicht auf den Fersen ist, nichts wie ab 
durch einen der Ausgänge! Viele Aktio- 
nen, wie Kekse fressen, Gespenst fres- 
sen oder von ihm gefressen werden, 
sind mit Tönen oder Tonfolgen unter- 
malt. Vor der Anleitung wird der An- 
fang der Fünften Symphonie Beetho- 
vens gespielt!! 





w PRESENTS" :GOSUB298 


128 PRINTTAB«?);" 
138 PRINTTAB<?Dz" 2, dd W' :G0SUB238 

148 PRINTTAB<S> ;" a = :GOSLUB238 

1598 PRINTTAB<B) ;" a  :GOSUB29R 

168 PRINTTAB<S) ;" 2" 1GOSUBZ2IB 

178 PRINTTAB<B) ;" en ",GOSUB2I4 

186 PRINTTAB<8) ;" BE "+GOSUB298 

198 PRINTTAB<B) >" % er nenss 2: OOpLBER 

193 PRINTTAB<SY" u > n 
208 FRINTTRB(S> Ed U WE Mm wu m" :GOSUBZ30 
218 PRINTTABCS> "u U mE Mm EM" :GOSUB2308 
228 PRINTTRB(S) "EU im weg m re" :GOSUB230 
238 PRINTTAB<S) "Wa ud mg win" :GOSUB236 
248 PRINTTAB«S) "nes E SOFTWARE" :GOSUB298 
258 PRINTTAB<S) > © Er Age 

268 PRINTTAB(<S) "WR ® + 

278 PRINTTAB<S) "WdE im m a m ig EM" :GOSLUB2S8 
2868 PRINTTRB(SY "EB u. U « :GOSUEZ2IB :GOTOIHR 
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FÜRI=1TÜ64AsNEXxTI :FETUFRHN 
FÜruU=1TÜ2: nl 'ı" :GOSUBZFG :NESTU 
ee «NE» im 


GuoS Su ve 


Pl=1521 
FEN +++ COFTRIGHT BY +4% 
FEN +#+#+%+ HEIKO KIESSLING ++ 


FEN #4* 7783 D-65657 LUDWUIGSHAFEN ### 
PEM ### MUNCH-MAN WERS 4.3 MCP ### 








EIMAF« 22) 
ARFeI=-" Bi Won au B--—-- u 
HFIE2I=" R* 3 SHERHRNE IS SHRRRS RU RE BIS RR IP BRSSNSIE | 
ASCII =" D-NE-— Zi eereeeen al Za n BEEREER | 
Io oe u el zei ze m m ei ee - 
HET = ER BEER BE BEER N 
Rrios?="38-----—-i $ BRIS BR BES — ES N 7 
HET DI BER — — BE | 
AFCDI =" I  R  RRER | 
HE De" ------55 ERS 4 
As 10)="" ERBE RS BB I RER RR SSR 
ASIA a zur) u FR m" 
As 12) = RR ER ES BE REN 
AST EG  —— BR — Es Fe 
As 14) =1" RR I Bi RER ERRIRE EER  - E | 
HEISE BE RR — - H-— — | 
Ati 159" ee ze m u m ze Zei Zi me m 
AB De RR EB Bi RR HE 
AS 1) = BR z 
a REEL I= BR ERERE —  BERR RE I BB | 
AtıZzu)=Aftt1)> 
PRINT" Zeig" 
0DZ=46 
Av=1 :BY=215:CV=2093 :0%=230 :EW=1668 :FV=G:AP=32767 :DW=46 :AG=1 :06=408 
FRINT"I " 
FRINTTAB<17> "PLAY :" :SPRINTTABCI1AD "ER MUNCH-MAN ###" = MM=8:T1=59467 :T2=59454 
T3=59466 
GOSUB2348 


PRINTTAB“14>"MEPOINT LIST:" 

PRINTTRB“ 183 " dU--+---——— > 

FORSN=33215T033223 :POKESN ‚51 :FORS=«=1TO8SE :NEH&T :POKESN, 32 :NEXT 
POKES33224 ,31 

AN$«1>="’-” = 8-12 FOINTS" PRINT" ;-SPCS2>> 

FORSN=1T017 :FORS®=1T068 :NEXT sIFPEEK“ PC) <SPZSSTHENI AS 
PRINTMID$S<AN$C1D,SN, 13 5 NEXT :PRINTTRAB(Z2S>} 

POKE33224 ‚32 »POKE33225,91 :FORS*=1T088 :NEXT »POKE33225 ,32 :POKE33226 ,81 
AN$L1>=""#” = 106 POINTS" 

FÜRSN=1TO16 :FÜRSKk=1T068 :NEXT : IFPEEK PC) <PZSSTHEN 1 AsScı 
PRINTMID$S<AHN$«1>,5N,1D > :HEXT :PRINT" 8" ;SPCC123; 

AHN£(<Z>="ERT UP ALL OF THEHSERERRERNEEENNRENRRNILOCOKIES FOR NEW MAZEI" 
FÜRSH=1T0S53 :FORSK=1TO88 :HEXT :IFPEEK“ PCI <>D2SSTHEN 1868 
PRINTMID$<CAHFCZD ,5SN,1> > :NEXT 

ANtL3>="COLLECT 7828 FPOINTSAGMEREEERNRRRRARNRFÜR EXTRA-RUN' 
PRIHT=PFINT :PRINT :PRINTSPC<103; 

FORSN=1T071 :FORS#=1T06% :NEXT : IFPEEK<PC) <D255STHEN1G68 
PRINTMID$<AN#<3) ,SHN,1> > :NEKT 

FÜRSN=1T03488 : IFPEEK (PC) <I2SSTHEH 1868 :NEXT 

PRINT" Aelelelel" »SPC« 119 "KEWYBORRO COMMANDS" :FORA=1TOSG 

ANF(4>="48-Tl THE LEFT":PRINT"M" 

PRIHTSPC« 1895 ; sFORSN=1T0O15:FORSA=1T068 :NEXTS% : IFPEEK<PCI<PI2SSTHEN I OSO 
PEINTMIDS<AN$«“4> ,5N,12 + :NEXTSN 

AN#4>="B58-T0 THE RIGHT" :PRINT" EM" :PRINTSPCC18)2; 

FORSH=1T016 :sFORS%=1T068 :NEXTSX : IFPEEK<PCYI<SD2SSTHEN I G60 
PRIHTMIDS<AHS$«“4> ,5SN, 1) ; :NEXTSN 

ANS(4)=" B-UP" :PRINT"" :PRINTSPC<18); 

FORSH=1T06 :FORS%=1T068 :NEXTS% : IFPEEK (PC) <CD25STHENI1 866 
PRIHTMIDS<ANS(C4) ,SH, 1) 5 :NEXTSN 

AHS$(4)=" BS-DüliN" sPRINT" WM" :sPRINTSPC(10>; 





23a FRINTMIDSKANg«4) ‚»SN,12; 
FRINT:FRINTSPC«12) "BBUT RTTENTIONI I" 


1 aSe 


ma pi DI 5 
EN 
u) (7) 


be fe he a fd 
(3) 

PERF 

x“ 

— 





1620 
1638 


a FPRINT"POINTS: ";PO;TABE1SYI"1ST 





nn oN=1T08 :FORSX=1TOGA ENEXTSX :IFPEEK<CPCICD2SSTHENIGGR 


:NE*TSN 


FURS*=1T0198 : IFPEEK<PCI<>2SST 

NExT=PRINTSPC<3Y "WMAZE GHÜST eg 
FRINTSPCKSE> "WAND HE LIKES TO EAT MUNCH-MEN z 
FORS#=1TO1GBG:IFPEEK<PCI<D2ZSSTHENIA6O a” 

NE*X 5% :PRINTSPC<C 183 "WHOHOHOHOG,. .„. " 
FORSN=1T03808 :NEXT 

FRINT" IIFFICULT'Y" 
PRINT"B",SPC<C12>"cC1, 2, OR 3) 
LETAF:IFA$=""THENLOSGa 

IFA$=" 1" THENWM=2 :VUG=1 :20=G:G0T01130 

IFA$=" 2" THENWG=1 :)UM=1 :20=1 :G0TO1130 

IFA$=" 3" THENUIG=Z :UM=1 :20=2:G0T01130 

GCOTO1leS4 

FÜRSY=1TO1988 :NEXTSY :PRINT"ZJ' :Po=c 

k RUN HISCORE :";HI 
FÜRSN=328887T032327 :POKESN ‚234 : NEXT ı ZR=8 :PZ=8 :?0=0 
FORSN=33729T033767 :POKESN, 230 :NEXT :GA=0 :G%=8 :MM=8 


? FÜRSN=32888T0337285STEP48 :POKESN , 238 :NEXT :WIE=1 175225 : 


FÜRSN=32927T033787STEP48 :POKESN, 230 :NEXT :ZY=8 :22=INTCRND«1)#20+45) ıZL=8 


A PRINT" I" 


GOSUB13FA:REM KEKSEI I 
GOSUB3IERH 

FP=33588 :PM=33271 

POKEPP ‚283 :MP=PEEK<PM) 

POKE33267 ,BV :GOSUB1414 :POKE33268 ‚BY :POKE33267 ‚169 :GOSUB1418 
POKE33263,BV :POKE33268, 168 :GOSUB1418 :POKEPM ‚BY :POKE33269 , 160 
FÜRYU=1TOLUM:GOSUB141G 

IFMM=1 THENIFBY=215STHEN2838 

IFMM=1THENIFEY=1FBOTHENZEEA 
IFSF=8THENBY=215 :AG=1 :06G=48 :ML=32080 

25=25+1 :ZY=Z'Y+1 : IFZS=ZZTHENGOSUB2178 
IFPZ=425THENGOSUB2319 :ZL=1 :G0T01218 
IFZY=SSBTHENZD=20+1 : IFZD=1 THENMIM=1 :WG=1 
IFZD=2THENUM=1 :1G=2 

NEXT 

FORSHN=1 TOLIG :GOSUB16A8 

IFNM=2THENIFBY=215THEN2836 

IFMM=2THENIFBY=17@THENZ285A 

NEXT :GOTO1268 

PRINT" MI" :FORSY=1T028 :PRINTAS«S'YD :NEKT 

RETURN | 

PE=PEEK<PC) : IFPE=255THENRETURN 

PY=PP ı IFPE=42THENPP=PP-AY:GOTO1478 

IFPE=41 THENPP=PP+AY :GOT01470 

IFPE=58THENPP=PP-DY :GOT0147& 

IFPE=18THENPP=PP+DY :GOT01478 

RETURN 

IFPEEK<PP>=DXTHEN1568 
IFPEEK(PP)=173THENPZ=PZ+1 :GOSUB2500 :PO=PO+INTCAHRNDC1)+8) 
IFPEEK<PP>=173THENPRINT" IE" »TAB(7> PO 


IFPEEK<PP>=173THENGOTO1558 
IFPEEK<PF>=218THENPO=PO+188 :GOSUB2528 :PRINT" SM" »TAB<7> »PO:28S=22-16 :G0OT0155 


IFPEEK<PP>=Z11THENZ788 
IFPEEK<PP>=BYTHENMM=1 sPOKEPY,168 :FORSN=1TO1B888 »NEXT :RETURN 
GOSUJB25688 

POKEPP ‚CV :POKEPY ‚EV :RETURN 
IFPP<>33327ANDPP<>33368THENPP=PY ıRETURN 
IFPP=33327THENPP=PP+48:G0T01488 
IFPP=33368THENPP=PP-48 :GOTO1488 

END 

REM MAZEGHOSTSTRATEGIE 

SYS826 

SF=SF-i 
GM=DZ#LCCPM-AP>/DZI-INT<<PM-AP?/DZP?? 





lodıi 
ISIk 
lock 
IS/’& 
15354 
1846 
1r/ad 
11a 
\r2d 
1736 
174 
1796 
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17246 
1954 
19668 
1978 
1336 
1976 
zaa6 
2810 
2026 
2036 
2a46 
2058 
2066 
2a78 
2094 
294 
2186 
2110 
2126 
21364 
21468 
2158 
2166 
2ire 
2188 
2196 
2240 
2210 
2220 
2230 
2248 
22508 
2260 
2278 
2286 
2236 
2348 
23108 


ee ee u nz — 
UD- GO DO N HU LO TI Ha do NJ D 


0 WO AD In u Co 00 CO Go 0 








KM=0Z# X ÜPFP-AP>FDZI-INTCEPF-APPFZOZ?) 
MA=GM-KMs IFMA=FYTHENAL=AY:GOTO1S7O 
HL=SGNTMA> 

MW’=FMsGA=PF-PM:GS=5GNIGR) 
IFGs=AWTHENI1FSG 


IFABSKGRA»<COW-KM>THEN1858 

PM-PM-DG =: IFPEEK «PM =DKÜRPM=MLTHENPM=MY sAD=DIG :G0SUB17498:G0TO1726 
ML=FMN+DG 

PCIKEMY „MP =:MP=PEEK“PM> :POKEPM ‚BY : IFMP=CYTHENMM=2 :FORSN=1T01898 :NEXT 
5Yr53387 :RETUFN 

IFAL=AYTHENI 736 

PM=FM+AG : IFPEEKK“PM>=DKORPM=MLTHENPM=MY:GOTO1 77 

ML=PFMN-AG RETURN 

PM=PM-+AD : IFPEEK PM) =OIXOÖRPM=MLTHENPM=NMY:GOTO1S44 

ML=PM-RAb RETURN 

>M=PM-AG : IFPEEKCPMI=OIKÜRPFM=HMLTHENFM=MY :GOTO1G1® 

ML=-PM+AG RETURN 

FM=PM+AD : IFPEEK (PNM>=DKXÜRPM=MLTHEHNPM=MY:GOTO1338 

ML=FM-AD :+RETURN 

FHM=FM+RG :ML=PM-AG :RETURN 

FM=FM-AG :ML=PM+RG »RETURN 

FHM=PM-AG : IFPEEK PM) =DKORPM=MLTHENPM=MY :AD=-AG :GOSUB1878:G0T01726 
ML_=FM+ARG.:GOTO1 728 

IFPEEK«PM+RD-ODG>=EYTHENI1F3G 

PM=PM+DG ss IFPEEK “ PM) =DIS THENPM=M"/ »GOTO13FGE 

ML=PHM-OG:RETURH 

PM=PHM-AD =: IFPEEK «PM>=D#THENFM=MY :GOTO1F2& 

ML_=PHM+ROD RETURN 

PM=PM+RD :HML=PM-Ab sRETURN 

PM=PM-DG : IFPEEK «PM =DK THEHNPM=M"Y »sGOTO19FS568 

ML=PHM+DG:RETURN 

PM=PM-RAD : IFFEEK«FPM>=DKTHENPM=MW:GOTO1STE 

ML=PM+AC RETURN 

PM=PHM-+AD :ML=PM-AO :RETUFRN 

IFGA<KMTHENZEIG 

PM=FM+DG : IFPEEK <PM>=DXORPM=MLTHENPM=MY :AD=—-DG :GÜSUB1748:G0T01728 
ML=PM-OG :GOTO1 724 

PM=PM=+AG : IFPEEK PM} =DIKXORPM=MLTHENPM=M'Y :AD=AG :GOSUB1878:60T01728 
ML=PM-AG :GOTO17Z6& 
IFPC=S1STHEHFORSN=1 TO26 :POKES9I483 „52 :FORS1I=1T028 :NEXTSI :POKESF4839 ,656 
IFFC=S1STHENFORSI=1T026 :NE#&TSI :NEKTSN 

IFPC=151 THENGÜOSUBZS?F4 

ZE=ZR+1 :ONZRGOTO2ZG7G , 2084 ,2034,2130,2106 

PRINT" SI" »TAB<C1S5> ; "2HOD" :GOTOZ1SI0 

PRINT" a" »TAB« 15) +" 3RD" »GOTO21S0 
IFFÜ>=7BGBTHENPRINT" SIR" «TABL 14) "EXTRA" :GOTO2150 

G0SUB225#4 

IFHI<FÜOTHENHI=PO PRINT" il" 

FORSN=1 T01486 :NEXT »PRINT" sel" »:GOTOS3G 
IFPÜ>=14BBBH THENPRIHT "SI" »TAB“ 14) "KTRARUN 2" :G0T02150 

GOTOZ106 

IFMM=1 THENPOKEPM,MP :MM=8:60T01228 
IFMM=ZTHENPOKEPM, 168 :MM=6 :GOTO1228 

75=Z5+1:REM SPECIALCOOKTE 

IFUE=ZTHENZ248 

FS=INT (437 #RHD (C 19+327685 s IFPEEK<CPS>=1P730ORPEEK<PS>=1S6UTHENMS=PEEK<PS) :UE=2 
IFUE=2THENZS=6 :POKEPS,218 :ZZ=INT (ZU%4RND«12+36> «RETURN 

P5S=INT (437 #RHND«17+33278> : IFPEEK<PS>=1730RPEEK«PS?=15865B THENMS=PEEK<PS> s UE=2 
IFUE=ZTHENZ3=6 :POKEFS,218 :1ZZ=INT ( Z24#RND< 13+45> sRETURN 

GOTO2178 

POKEPS ‚MS :UE=1 :25=8 :RETURN 

FORSH=33255T 033236 :POKESN, 166 :NEXT 

POKE33265, 166 :POKE33278,1658 

FORSH=33385T033316 :POKESN, 168 :NE#T 

PRINT" "sTABL18) 5 :5N=B 





SN=35H+1 »PRINT" GAME EIBBREN VER TERN" > :FORSI=1TO7O NEXT 
a0) I I I IE 


PRINT"2 WIIERR:: 
FORS1=1T078 :NEXT : IFSN<=ZOTHENZ2236 





2530 
2544 
2558 
25650 
2570 
2584 


23530 





RETURN 
FÜRSS=1TÜ4O :NENST RETURN 


FPÜKET1,15:POKET3,S6 

s=-zF11 

FOKETZ,142:G0SUB244 :POKET2, 149 :G05UB2449 :POKET2 , 148 :G0SUB2448 
FÜKET2,177 :GOSUB2458 :POKET2, 157 :G0SUB2449 :POKET2 , 157 :G03UB2446 
FUKETZ,157:6G0SUB2444 :POKETZ,188 :G0SUB2458 :POKET2, 188 :GOSUB?448 


FÜKETZ,183:60SUB2444 :POKET2, 188 :GOSUB2448 :POKET2 , 148 :G0SUB2450 
FOKETZ2,148:G0SUB2448 :POKET2, 140 :G0SUB2448 :POKET2 ‚149 :G0SUB2448 :POKET2.211 
FÜRI=8T0335 :NEXT 

PÄKET1 ,G:RETURN 

REM SOUNDSUBROUTINE 

FÜRK=BTO1AB :NEXTE :GOSUB246A :RETURN 

FÜRK=8TO254 :NEXTK :GOSUB2474 :RETURN 

POKET2 ,&:FORK=4T075 :NEXTX :RETURN 

FÜKET2,80:FORT*=G8T0466 »NEXT :RETURN 

FETURN 

REM COOKIESOLUND 

POKETI1,18:POKET3,186:POKET2,115 :FORKY=1TO18 :NEXTXY :POKET1 .& :RETURN 
FEM SFECIALCOOKIESOUND 

FOKET1.18:POKETS, 106 :POKET2, 188 :FORKY=1T024 :NEXTX'Y :POKET1 ,0 
FORMT=1TOASENEXTKYSPOKET1,16:POKET3,1360:POKET2,.148 
FÜRK'Y=1T048 3NEXT%k'Y:POKET1 ,.A:RETURN 

REM SPACESOUND 

POKET1,165:POKET3,186:POKET2, 158 :FORK'Y=1TO30 :NEXTAY 

FÜKETI1 .&G:RETUFN 

REM FRESSOLUND 

POKET1,16:FORKY=3ET088 :POKET3, 168 :POKETZ2 „Kr :NEXTKY 

PÜKEPP ‚226 :FOR%#Y=S81T0138 :POKET3, 166 :POKETZ „Kr :NEXTK'Y 

FÜKEFP , 239: FORKY=138T0168 :FOKET3, 198 :POKETZ ,%Y :NEXTXY :POKET1,0 
RETURN 

REM GESPENST GEFRESSEN ©+ SOUND)» 

IFMM=2THENMP=16# 

FÜRSN=138T078STEP-1 :PÜKEPP ,CY :POKET1 ,18:POKET3, 100 
POKET2,SN :FOKET1 ,E:POKEPP „MP :NEKTSN 

FÜRSN=1TO2E NEXT :POKET1,165:POKET3, 196 :POKET2 „55 
FÜRSN=1TO4G :HEXT :POKET1 ,8 :FORSN=1TO2G NEXT 
PCKET1,15:POKET3,144:POKET2,78:N_=327657 

FÜRSN=1TOS6 :NEXT :AG=1 :06=44 :BY=215 :PO=PO+SAG :ML=32000 
PRINT"SIS" »TAB<7> +PÜ :POKET1,0 

IFMM=1 THENPOKEPM,MP :MM=4:GOTO122G4 
IFMM=ZTHENPOKEPM, 1686 :MM=6 :GOTO12264 

5SOTO122G 

REM COPY-SOUND UND SCHNSTIGES 

SF=32 :BY=174:AG=-1 :0G=-44 :ML=32767 

FPOKET1 .,15:POKET3,186 :PCIKET2 ‚34 :FORSN=1TO1E:NEKXT 
POKETZ2,116:FÜRSN=1TO16 :HEXT :POKET2 ,84 :FORSN=1TO1AM :NEXT 
POKET1,8:G60T01556 
FORMC=3268T09324 :RERADAS »POKEHMC „AS :NEXTMC 

RETURN 
CAHTRA164,1,162,2069,169,160,235,161,128,2408,6,141,161,128,76,78 
DATA3,149,252,3,236,198,128,240,6,141,198,1298,76,92,3,148 
DATR2S53,3,236,153,131,.240,6,141,153,131,76,106,3,140,254,3 
DATA2368,136,131,2460,4,141,190,131,96,140,255,3,36,169,211.168 
DATA1,204,252,3,249,3,141,161,128,294 ,253,3,240,3,141,198 
DATA128,204 ,254,3,240,3,141,153,131 ,204 ,255,3,249,3,141 ,190 


DATA131,96,0 | | 
FORSN=323281033265 : IFPEEK<SN)<>238THENFOKESN, 173 


NEXT 
FORSN=33274T033323 : IFPEEK<SN? <>238THEHNPOKESN,.173 


NEXT 
FORSN=333347T033361 s IFPEEK<CSN><>DZ3AGTHENPOKESN, 173 


HE#T 


FORSN=333681T033767 : IFPEEK<SN> <D>238THENPOKESN, 173 
| NEXT 


PZ=8 :RETUFRH 
FÜRSH= 1926701923 :POKESH ,B :NEXTSH 
POKE32329 ,211 :POKE32966 ‚211 :POKE33689 ‚211 :POKE33726 ‚21 1 :RETURN 














Das pulsierende Leben in einer Börse, läßt uns doch auch ein bißche 
uneinnehmbaren 


eroßen, für 
schnuppern. 


Es ist schon beeindruckend, sowohl für 
den Laien. als auch immer wieder für 
den Profi. wenn innerhalb kürzester 
Zeıt mit horrorenden Summen Jong- 
liert wird. Wertpapiere in ihrem Kurs 
durch An- oder Verkaufsteigen und fal- 


A kb KENWEL 
REM 
Em 

= REM 

[ |ıWE = Al = 675 
R = BRAD 

12% FÜRN = | 05 

136 READ As(N 

146 NEXT N 

ne DATA I1EBM,RCA,LBJ,ABC,CBS 

188 Z= -| 

’a HOME 
I80 PRINT "SETZEN SIE SICH BEQUE 


M AUF EINEN STUHL. 

190 PRINT "HOLEN SIE BITTE TIEF 
LUFT UND ENTSPANN-"s PRINT 
EN SIE SICH.’ 

20% PRINT "SOBALD DIESER RECHNER 
UEBER EINE TELE-": PRINT "F 
DNLEITUNG MIT DEM ZENTRALRETC 
HNER IN”: PRINT "NEW YORK/US 
A VERBUNDEN IST GEHT DAS": PRINT 
SPIEL WEITER.’ 

216 PRINT 

22@ PRINT "SIE ERHALTEN DANN DIR 

» EKT UEBER DIESEM": PRINT "BI 
LDSCHIRM DIE NEUSTEN DATEN A 
US NEW "ı PRINT "YORK. SIE I 
OENNEN DANN AUCH UEBER " 

2360 PRINT "DIESES TERMINAL IHRE 
IWER-)IKAUFSAUF -"ı PRINT "TR 
AEGE ABWICKELN, “ 

24@ PRINT :ı PRINT "BITTE DRUECKE 
N SIE NACH JEDER EINGABE“: PRINT 
"DIE «RETURN TASTE.“ 

250 PRINT ı PRINT "BITTE HABEN S 
lE ETWAS GEDULD, BIS DIE"ı PRINT 
"LEITUNG NACH NEW YORK STEHT 
.": PRINT 

2606 FOR N = I TO 16060 

270 NN = RND (1) 

2B0 IF NN « „GB THEN FRINT CHRS 
ID: 

2906 NEXT N 

300 HOME 

z10 PRINT TABi 15) "WALLSTREET" 

326 PRINT TABI( 15) Yeusse=mzeee" 

170 PRINT TAB( 16)"FRANZ MATTES 

1982/88": PRINT 

740 PRINT "ES WERDEN FOLGENDE T] 
TEL GEHANDELT :"ı PRINT 

zs0 PRINT "IBM INT.BALLISTIC MI 


SSILES” 

66 PRINT "RCA RED CROSS OF AME 
RICA” 

76 PRINT "LBJ LICHTENSTEIN Bim 
RAP £ JOKE' 
MINT "ABC AMERICAN BANCHUF 

co.’ 

90 PRINT "CR5 CENSURED BON ar 

uf 


Ace Pin! 

4406 ILASH s PRINT “ACHTUNG ı 
“DIE KURSTENDENZEN AENDERN": 
FRINT "SICH WAENREND DES 


1“ 


lELS, 
420 NORMAL 
4” “INT ı ir FULH JIEDC- TRA 


NSAYTION VERRECHNET D 


manchen 


Wallstreet 


für den Apple Il 


wohl für alle Zeit 


len und somit richtungsweisende 
Gleise. für das Wirtschaftleben jedes 
Landes. gestellt werden. 

Mit dem Spiel ‘Wallstreet möchten 
wir Ihnen Gelegenheit geben, sıch mit 
Hilfe Ihres Computers in das Aulsa- 


A a eier sur: 
- ET _.. > 


n die Luft der 
Geschäftswelt 


Börse hineınzutaster 


bengebiet eıneı 
(,lück /\ 


und selbst einmal Ihr 
versuchen 

Wir können Sie jetzt eigentlich nuı 
noch bitten. den Ratschlag des Erstel 
lers dieses Programms zu befolgen! 








anna han hir ruhe 


DEREK ALTER TER EEE BT LT LT RR 


5(2) = BSıVi2) = B8 
= = Ei _ IA 

= 14 = 140 u = 140 

« = Po « z 200 

570 FOR N = | TO 5ı51tN) = Sin) * 
INT « RNI ı + 300 + 1 
100 NEYT N 

500 FEM 

&1u REM „ann 2 2a nu eher 
n 

&20 REM 

450 REM KURSTABELLE 

640 REM 

&50 REM ...n.„„n..n.n..........r 
“ 

650 REM 

&70 HOME 

886 PRINT "AKTIE PREIS VORTAG 

STUECK" 
696 PRINT 


700 FORN= | T05 

71G PRINT Asin)s TAB( S)iSI(N)i TABI 
I&)s$ViNnIı TAB 27):5KIN) 

720 NEXTN 

738 PRINT 

740 AV = Al 

750 Al =® 

766 FORN = I TO SsAl = AI + Sin 
)t NEXITN 

770 VA = AI - AVıVA = INT (VA » 
1086) / 16% 

780 PRINT "NEW YORK AKTIENINDEX 
ı "AI 

79@ PRINT "VERÄNDERUNG ZUM VORTA 
G : "VA 

800 PRINT 

BsieWw=% 


FOR N = I TO S:V(N) = S{N)s NEXT 


N 
FOR N = I TO SıW = W + SKIN 
* S{N): NEXTNIK = W+D 

K=GKk=W+B 


PRINT "BARGELD B 


” 
PRINT "GESAMTKAPITAL ar 


PRINT 
PRINT "BOERSENSCHLUSS” 
PRINT Hsmasuezeosseme" 
910 PRINT 
926 INPUT "GELESEN ? "ıJAs 
920 IF WE = 5 THEN GOSUb 1850 
946 IF D = 14 THEN GOSUB 1826 
950 WE = WE + lb =D+ lıl= 1 + 
j 
966 HOME 
97e PRINT "BOERSENDEFFNUNG" 
930 PRINT (sunznsmzzmunzen" 
90 PP = RAub (1) 
10006 FF = PP + „a2 


820 
830 
840 
850 
846 PRINT "WERT DER AKTIEN 8 "i 
870 
886 
3% 
900 


i0ı@ IF PP“ „09 THEN FLASH ı PRINT 


"UM SPEKULATIONEN 7U VERMEID 
EN WERDEN *; PRINT "HEUTE AL 
LE KURSE AUSGESETZT."ı NORMAL 
ı PRINT ı PFINT : FOR TV = I 


TO in6ı FRINT ChHks (Tits NER 


1Y 
1020 Ir PP < „69 THEN 938 
1050 REM 
ıoau TEM wunnunnnnnurienenene 
1056 REM 
10606 MEM NEUE KURSE FESILEGEN 
10679 PEN» 
1080 HEN „ninnnnnnnnensnnhene 
1090 KEN 
1100 IF 7 = 6 THEN GOSUB 173% 
11a IF 2= & THEN I = 6 GOBLUB 
1336 
FORN= I MS 
{126 IF Ti) = 0 THEW IWW 


| 1 
ne IF IT< = .2u Ten Bin = 


1170 


ıIFZ 
+ i 
118m) = INT ıSin) » Im 
100 

IF Sin 0 THEN Sin) = INT 
IE AND (j) * 10 + 5) » 100) / 
100 

GOTO 1230 

11 = Rub (l) 

IF 22 < = „2S THEN E(NI = 


SsIınN) + CRND (I) # .05 » SIN 


+ At 

IF 22 > „25 THEN Sin) = 5IN 
‚_- tb (1) « .I » SUN) » 
| 

IF SIN) < @ THEN SINN = & 
S{iNI = INT (Sin) » I1W@) /A 
oo 

NEIT N 

GOTO 1440 


REM #ununnnnn nenn nern 
REM TENDENZEN 
REM #wunnnnnnuninnnnrr rer 


FOR N = 1 T05 
TtN) = INT ( RND (1) + „5) 


...„......".n......n.er 
“ 
...„„„..„."un..—.e. 


REN 
REM 
REN 
REM TRANSAKTIONEN 
REM 
REM 
REM 


PRINT ASIN) 
PRINT "( KURS VOM VORTAG ; 


u 
s"rvindi" )* 


1520 


1530 


PRINT "STUECK IM DEPOT : "S 
KIND" "tr: INPUT ST(N) 

GE = (1.35 # ABS I5TiN)) * 
Ssin)) / 100 

IF STiND < > INT (STIW) THEN 
INVERSE ı PRINT "SIE WITZEO 
LD"s CHRS (7): NORMAL : GDTO 
1470 

IF STINI «= S{iN) + GE > B THEN 
UV = INT (160 »® ( ABS (B - 
IGE + (STINI « Sind) ))) 7A 
00 

IF STIN) » SiN) + GE > B THEN 
INVERSE ı PRINT "SIE HABEN 
NICHT SO VIEL BARGELD": PRINT 
"SIE HABEN UM # "ıUlVı" UEBER 
ZOGEN.*:ı NORMAL ı GOTO 1470 

IF STiN) < 0 AND SKın) < ABS 
(STINI) THEN INVERSE ı PRINT 
"SIE HABEN NICHT SD VIELE Ak 
TIEN":STIN) = 0: NORMAL ı GOTO 
1470 

IF STINI < 0 IHEND=B+ ABS 
(STiN)) * S(iWN) 

IF Stimm > 0 IHENG =B- 5 
Tin) » Sın) 
B=B-G 
SKIN) = KIN) + STImW 
B= ]INT (B « 100) ; Io0 

HOME 

PRINT "KESILICHES DARGELD ı 
°"ıB 

NEIT N 

HOME ı GOTD #70 

REM 


REM anne nnnennnennerhe 





PETTTEIELITTEZ ZI ZZ ZZ I 


EN 15T FUEMMEN SIE 


BISSCHEN": PrFii 


17a PRINT 


ı 7508 FRIN 

7 PRIMN wen 5S]k & 
ETIT BEENDEN wU paınt 
EN, Dis GEBEN Sit I 
EIN 

1770 Prim "WEN SIE WEITEN 41: 
LEN WOLLEN GEBEN": FRIMT "51 
E 1 EIM.' 

i7B0 GET EN 

17906 IF EN = 0 THEN 204% 

18066 IF EN = i THEN RETURN 

1810 REM 

1820 REN aunnannnnuneeeeeere 

iB5@ REN 

1840 REM DIVIDENDE 

IB REM 

1860 PEN Peer ee Teen 

1870 REN 

1BB08 D = % 

1890 HOME ı PRINT CHRS 711 Os 
17T): OHRS ITIı Os 1711: HOME 


19808 PRINT "DIVIDENDENAUSSCHUETT 


UNG* 
1916 PRINT *ersmommsiczmmzuzmmumzae 
==="; PRINT 


i926 FOR N = ı T0 5 

1930 DV = AuD (1) #6 + 1 

1948 DV = INT (DV » 160) / 106 

1950 AS = DV » SKIN 

1960 IF SKIN) = © THEN 19 

1976 PRINT "SIE ERHALTEN FUER Is 
RE "SKIN)" "Asin)ı PRINT "AK 
TIEN #”"AS" DIVIDENDE” 

1986 SIN) = Sin) - DV 

1990 B =B + AS 

2000 PRINT 

2016 NEITN 

2026 INPUT "GELESEN ?"i.JAS 

2050 RETURN 

2048 REM 

2050 REM mannuunneunutenns 

20606 REM 

2076 REM SPIELENDE 

20680 REM 

2090 REM nunnnannnensnene 

2100 REN 

2110 HOME 


2128 PRINT * Jjmmumzzazzommmunsen 
srzemzemmmmeseemen] 


2136 PRINT "I 


L? 
2148 PRINT "I SCHEDK NR. 178351 
5” 
2150 PRINT "I 
1" 
2160 PRINT “I DIE Ram-Base NEW v 
Om TAHLT I" 


2170 PRINT "1 GEGEN DIESEN SCHEC 


E i 
2186 PRINT "I AUF KEINEN FALL DE 
” N BETRAG VON .? 
21m PRINT *| 
I* 
22008 PRINT "1 . zı TaBı 
sy” 
2210 PRINT "1 
5 
2220 PRINT “I UNTERSCHR. 


DER COMPUTER y 

22 PRINT "1 

5% 

2248 PRINT *jemmmmnazumansnunann 
zunmzamsasssasızzn| 

zz EWD 

2248 WW = INT (100 » (ı ABS ıB » 
(GE + (ET Baar dh 
un 

2270 INWERSE ı PRINT "SIE WabEN 
NICHT SO VIEL BAABELD, " 

2288 PRINT »SiE MABEN um 8 "uw" 
UEBERTOGEN. * 

22m mwOkm ı GOTD 140 











Spider 


für den Apple Il 


Nach Einladen des Programmes, erscheint auf dem Bildschirm die Aufforderung ”in- 
sert coin”, worauf eine beliebige Zahl das Programm startet. Am oberen Bild- 
schirmrand erscheint eine sich, per Zufall, horizontal bewegende Spinne. Unter dieser 
werden drei Nester ausgedruckt und das vom Spieler zu steuernde Raumschiff wird am 
unteren Rand abgebildet. 


Die Spinne legt Eier, welche, falls sie 
das Nest treffen, in diesem lie- 
genbleiben, andernfalls fällt das Ei zu 
Boden. Wenn ein Nest mit drei Eiern 
angefüllt ist, entsteht in ihm eine kleine 
Spinne. Sind nun wiederum alle drei 
Nester von den Spinnen besetzt, begin- 
nen diese, zwischen sich ein Netz zu 
spannen, welches, wenn es fertiggestellt 
ist, die Spinnen veranlaßt zu Boden zu 
fallen, um das Raumschiff zu 
vernichten. 

Dieser Vorgang kann durch das Raum- 
schiff, folgendermaßen verhindert wer- 


heraufbauen. Eine Leitersprosse ent- 
steht, wenn Sie, unter einem Nest 
stehend, die Schuss-Taste”s” betätigen. 
Es ist nur möglich, eine Sprosse hin- 
tereinander zu bauen. Sie müssen, um 
die nächste Sprosse auf die gerade kon- 
struierte zu setzen, erst unter einem an- 
deren Nest eine neue erstellen. Wenn 
die Leiter bis an das Nest heranreicht, 
wird dieses ausgeraubt, das heißt, in 
ihm liegende Eier/Spinnen werden 
gelöscht. 

Falls ein, von der Mutterspinne, gewor- 
fenes Ei bis zum Boden gelangt, werden 


sen werden. Die Fallgeschwindigkeit 
der Eier erhöht sich mit jedem Nest- 
ausrauben. Eine weitere Gefahr geht 
von den kleinen Spinnen aus, welche 
schießen, falls sich die Mutterspinne 
über ihnen befindet und ein Ei wirft 
Punktsystem: 

Jeder Schuss kostet Punkte. Für jedes 
abgeschossene Ei erhalten Sie Punkte, 
wie auch für jede errichtete Leiter- 
sprosse. Hohe Punktzahlen erreichen 
Sie, wenn ein mit einer Spinne besetztes 
Nest ausgeraubt wird. 

Das Raumschiff wird mit den Tasten 


den: Die Nester können ausgeraubt alle Leitern zerstört. Ein Ei kann j- "I" (links), “” ( 
werden. indem Sie Leitern zu ihnen doch auf seinem Flugweg abgeschos- (Schuss) gesteuert 
1 HOME Ei 
2 SCALE= 1i 146 WTRAB 21: PRINT "#84" 
32 ROT= 8 158 HGR 
4 PRINT "PLAY SPIDER’S REVENGE". 166 SCALE= 1: ROT= & 
PRINT "INSERT COIN!". FLASH 178 HCOLOR= 7 
PRINT "slolakaataltaktktakepeietehsk 171 DRAU 4 AT 19,20. DRAU #4 AT 1 
Anke ke ee" 208, 20: DRAW 4 AT 259, 38 
8 GOSUB 35608 25a GOSUB 56086 
9 GET JKL 218 GüsuB 559 
18 HOME 238 IF PEEK ( - 16384) = 211 THEN 
28 DATA 7:8, 16, 8, 61, 8, 72.8,82,6 GoSsuB 5939 
‚936, 8, 127, 8, 142,8 246 GOSUB 858 
25 DATA 63, 58, 58, 58, 58, 63, 63, 58 2sa IF INT <A * 18) = 8 AND Si + 
‚54, 54, 41, 32, 36, 41, 45, 42; 42, s2 + 53 = 3 THEN GOSsuUB 1988 
45, 45, 45, 13, 24, 13, 24, 45, 21, 5 
4, 14, 12, 24, 36, 36, 28, 63, 63, 15 268 GOTO 208 
‚24, 15, 24, 15, 24, 15, 24, 623,08 soa8 A = RND (8) 
38 DATA 28, 18, 13, 24, 45 sol IFL=1 THENZ=xX 
408 DATA 45, 34, 8, 24, 51, 8 582 NHCOLOR= 8: DRAW 1 AT X,08:. DRAW 
45 DATA 28, 58, 41, 45, 13, 24, 12, 24 2 ATX - 13: HCOLOR= 7? 
‚51,08 583 POKE 768.188. POKE 769,2: CALL 
sa DATA 14, 14, 45, 45, 45, 45, 45, 45 778 
‚45, 45, 45, 48, 32, 0 se5 IF A> 085 THEN 520 


55 DATA 238, 28, 38, 63, 15, 24, 23, 54 518 X = X + 108 


‚20, 14, 45, 45, 48, 45, 45, 45, 42, 512 IF x > 268 THEN X = 11 
45, 13, 24 515 GOTO 530 
65 DATA 28, 36, 28, 23, 63, 15, 24, 15 520% =X - 10 
‚24, 7,0 522 IF x < ı1 THEN X = 268 
708 DATR 28, 28, 36, 12, 12, 12, 21, 21 538 DRAW i AT X,8: DRAU 2 ATX »- 
‚21, 54, 38, 30, 28, 6,8 4,3 
75 DATA 45, 45, 52, 280, 20, 54, 54,14 548 RETURN 
‚14, 62, 63, 63, 63, 63, 39, 12, 12, 558 HCOLOR= 8: DRAW 5 AT M,N. HCOLOR= 
36, 36, 15, 24, 15, 24, Du ? 
85 DATA 45,45,8 568 C = PEEK (< - 16384) 
1088 FOR I = 7676 TO 7676 + 168 a IC ABS (9,=) + 428 nme 
118 READ S H=N + 18 
128 POKE I,S s75 IF C = ASC ("L") + 128 THEN 
128 NEXT M=M - 10 
148 POKE 222, 252: POKE 233,29 588 IF M << 18 THEN M = 269 
141 L=1:5=2 562 IF M > 269 THEN M = 198 
142 M = 148 ST = 4 585 DRAU 5 AT M,N 
142 N = 151:RS = 4 538 RETURN 
144 / = 9:NE = 236 53 P=P-4 
145 % = INT (C RND (8) * 2008) + 3 6008 IF RBS <M - 21) < SAND G = 








a 2 ii) Sa 
be 5 mar 2 
a2 $ fi Y a e 
De Ei a 4 
ee, 
el 
u 


Su, 





ad THEN 656 
sid IF ABS <M - 141) < 5 AND H 
0 THEN 7a 


628 IF RBS CM — 261> < 5 AND K 
a THEN 75 
8630 HPLOT M,4151 TO M 22 
832 FOR I = 48 TO 18 STEP — 2 
633 PÜKE 768, I: POKE 769,4 SALL 
6234 NEXT I 
635 IF ABS Cc2-M <6 THEN = 
a: DRAU 6 AT ZY:Y = 29 - u 
sSTZ=X%:P =P + 49 
648 HCOLOR= 8: HPLOT M,151 TO M, 
32: HCOLOR= 7 
645 RETURN 
es =D + ıi 
6523P=P+D + 15 
655 POKE 768, 255 - D * 28: POKE 
"69, 28: CALL 778 
668 DRAW 7 AT 21,151 - D x 11 
68 G=1:H = B8:K=9B 
658 IF D= 11 THEN 16088 
698 RETURN 
"B@E=E +1 
reaP=P+E + 15 
r85 POKE 768,255 - E * 28: POKE 
r69, 28: CALL 778 
r18 DRAW 7 AT 141,151 - E * 11 
r28.G=8:H =1:K=9 
38 IF E = 11 THEN 1709 
748 RETURN 
‚-sseF =FrF+1 
-Ss2P=P+F+15 
755 POKE 768,255 - F * 28: POKE 
769, 28: CALL 778 
768 DRAU 7 AT 261,151 - F x 11 
G=5:H=B’K=-1 


778 
788 IF F = 11 THEN 1888 t 
7938 RETURN 
888 HCOLOR= 8: DRAW 6 AT Z,Y:, HCOLOR= 
7 . 
se L=1 
885 IFSi=1RAND ABS <Z - 2I« 
11 THEN 2208 
886 IF S2 = 1 RAND ABS <Z - 141) 
< 11 THEN 2398 
887 IF S2= Ai RAND ABS <Z - 261) 
< 11 THEN 2498 
s88L=98 
818 Y = Y + ST 
828 DRAU 6 AT Z,Y 
8308 IF Y > 158 THEN -HCOLOR= 8: DRAW 
EAT ZY:VY= 29 - 3#STL= 
1: GOTO 1598 
848 IF Y = 29 AND ABS (<Z - 21) < 
11 THEN EL = Ei +1Y7= 239 - 
3 # ST:L =1: IF Ei = 3 THEN 
998 
850 IF Y = 29 AND ABS <Z - 141) 
< 11 THENE2=E2 +1:Y= 2 
9-23. ST:L=1: IFE2 = 2 THEN 
950 
866 IF Y = 29 AND ABS <Z - 261) 
< 11 THEN E23 - 





TSEFNTR 


47 RETURN 

>28 HCOLOR= 8 

955 FOR I = 131 TO 132 

968 DRAW 6 AT I,29 

978 NEXT 

988 HCOLOR= 7 

985 GOSUB 232988 

998 DRAU 1 AT 141,21. DRAU 2 AT 


140, 24 
994 E2 = 4 
995 S2 = 1 


93296 RETURN 

180808 HCOLOR= 8 

1885 FOR I = 251 TO 272 

18618 DRAL 6 AT 1, 29 

1828 NEXT 

1838 HCOLOR= 7 

1848 DRAW 1 AT 261,21: DRAW 2 AT 
260, 24 

1043 GOSUB 2208 

1944 E2 = 4 

19845 532 = 1 

1847 RETURN 

1588 HCOLOR= 8 

1518 FOR I =11 TT1i1STEPr -1i 

1512 PRINT : PRINT 

1528 DRAW 7 AT 21,151 - I 11: DRAW 
7 AT 141,151 - I = 11: DRAW 
7 AT 261.151 - I = 11 

1525 POKE 768, I * 28: POKE 769,23 
8: CALL 770 

1528 NEXT 

1548 D=98E=BF 

155986G=9H=9%K 

1555 GOSUB 23249 

15608 RETURN 

16088 HCOLOR= & 

1618 FOR I = 11 TO 32 

1628 DRAU 6 AT 1,29 

1625 POKE 768, <I + 9) * 5: POKE 
769.5: _CALL 778 

1628 NEXT 

1648 FOR I = 11 TTiSTEP -ı 

41658 DRAW 7 AT 21,151 - 1 = ı1 

1655 POKE 768,208 - I * 18: POKE 
769, 28: CALL 778 

1668 NEXT 

1662 IF Si =1 THENAN=AN +1 
P=P+RAN x 58 

1665 ST = ST + 1: IF ST> 9 THEN 
ST = - 

1666 GOSUB 2198 

16708 Ei = 851 = 8 

1672D=®8 

1675 HCOLOR= ? 

1688 RETURN 

1708 HCOLOR= ® 

1718 FOR I = 131 TO 132 

1728 DRAW 6 AT 1,29 

1725 POKE 768. <I - 111) « 5: POKE 
769.5: CALL 770 

1728 NEXT 

1748 FOR I = 11 TO 1 STEP -ı1 

1758 DRAU 7 AT 141,151 - I # 11 

1755 POKE 768.208 - I = 18 POKE 
769, 28: CALL 778 

1768 NEXT 

1762 IF S2 =1 THENAN = AN + 1 
F=P + An « 58 

1765 ST = ST + 1 IF ST> 93 THEN 
ST = 9 

1766 GOSUB 2108 

1778 E2=952 = 

173 E=08 

1775 HCOLOR= ? 

1780 RETURN 

1866 HCOLOR= 6 

1818 FOR I = 251 TO 272 


12) 
12) 
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IRL= soyluT Useyred r UR-U si Ne“ I () 


UR)=S0523T0385I5i1 FÜKEÜ:,B'NEKTO 


A=T800 : K=« INTCRNDLIIKISPI +7 I822+7 680: Be 786: V=CINTCRNDLIYHIEI+B)WZZ+7EB0U-1 Em 
i 
nz VE Led AU=3: b=99422 Mi=3olze 
Hs="FFFeFrFFrFFFFFEFFREREREFRRZ 
EF= KKKLKEKÄKKKEREKKEEKKEEKKK 
3) FÜKER, 3: FÜKER+I, 4: TOKER+2,5 
FLUKESBESr 9.232: FU=d 
REM HAUFTFRÜGRRAMM 


Je=-((CFHANDiE}=B) :Aeh-J2:D5=B-J 
FPÜKEr883,17:FÜKErBIB, 18  FOKE? 
FRINT Rama"  PRINTA$ 
PÜKES6578,5:FÜKESEBTT ,Z12 


“ IFHSTrIBOTHENA=A+L : B=b+i 


PFÜKER+3,6: FÜKEB+1.8: FÜKER, 3 POKER+1, 4: POKER+Z,S5'PÜKEB, 7 
IFR+C-13=H+iORR+C-19=A+Z0RR+C-19=A+3THENGISUEB’ O8 
FOKER-1,8:FOKER, &'POKER, 12: POKER+1, 13: R=ek+l 
IFR=7724THENFÜKER, 8: FÜKER-1,8:R=7702:6=35422 


r IF&XU=8THEHNGOTÜSOE 


FRINT'RSEBRCIDE3: "KU ’IBRPLUNKTE: "rU 

J1=-((FANDSI=G) : B=b-JiHZ22 : POKEB+ZZ. 0: POKEB, 7 

IFX+E=BTHENFPOKEB, 18: POKE36877 8: PÜKES6878, 15: POKE36674, 135: PU=PU+S5  E=21 
IFE=21THENFOKEX+E-1.8: FOKEX+E,9:'4=6CINTCRNDCIHAL TI HF IRZZHrT EBD  E=1 
FÜKEX+E-1,8:POKEX+E., 8: FÜKREX+E, 1:’PÜKEH+E+1, 2: E=E#1 
FÜKER+L-21,8:PÜKER+C,16:C0=7+19 

IFC=1 17 THENFPOKER+C-19,9:C=22 : POKE7744,8: POKE7745.,8:POKE7764,8:POKE7783,8:POK 


E’562,5 


195 
200 
265 
207 
203 
2108 
215 
258 
236 
273 
275 
280 
388 
300 


DD=37154 :P1=37151:P2=37152: POKELD, 127: P=PEEKCFZ2>ANDI12S 

Ja=-(FP=B) :A=A+J0:B=B+ JO 

POKEDD, 255: F=FEEK(PI) 

FÜKER-1,8: POKER, 8: FÜKER, 14: FÜKER+1, 15: ReR+i 

IFA>7BBSTHEHR=R-1:B=B-i1 

POKER-2, 8: POKER-1,8: FOKERA, 8: FOKEB-1, 6: POKER, 3: POKER+1, 4: POKER+2,5:POKEB, 7? 
PRINT ' Geseam" :PRINTE# 

J3=-(<PANDB)=B) : B=B+J3W22 : FOKEB-2Z2, 8: FÜKEB, 7 
IFR=7724THENFOKER, 8: FÜKER-1,8:R=7782 

IFT-F=BTHENPOKEB, 18: POKE36877,8: FOKES6878, 15: FOKE36874, 255: Pl=PlU+5:F=21 
IFF=Z1THENPÜOKE'T-F,8:POKE'T-F+1,B8:'T=(INT<CRNDCIIWIE) FO) AZZH 7 6E5B-1'F=B 
POKEY-F+1,8: POKEY+F,8: FPOKET-F,$:POKET-F-1,6:F=F+i 

GOTU148 

POKER+1.,8: POKER+2, 08: POKEA+3, 8: POKEB+1,8:FOKER, 3: FOER+1, 4  POKER+2,5:POKEB, ?° 


RETURN 


6068 
605 
610 
6208 
6zi 
625 
630 
648 
658 
r68 


REM UNTERROUTINE 
PRINT"AG " 

PRINT" SRIKIWSIE HABEN"PU"PUNKTE " 
PRINT" SBERREICHT. " 

IFPU>HITHENHI=PU 

PRINT" SBBIHIGHSCORE : "HI 
PRINT"EWMMBBIDRUECKE ’P’" 

GETSAS : IFSAS<>"P"THENGAB 

GOTOBS 

KU=%U-1 :POKE26874, 0: POKE36877 ‚8: FORT=255T0135STEP-1 : POKE36879, T:POKE36876,T: 


NEXTT: 


r0oi 
808 
818 
8208 
838 


POKE36879, 232 :FÜKES6376, 8 RETURN 
REM SPIELANLEITUNG 

PRINT'Z2 Wem BFISHINGE wo 
PRINT" MMMWERSUCHEN SIE SO " 
PRINT"MVIELE FISCHE ZU FRAND-" 
PRIHT"WEHN WIE MÜEGLICH." 
FRINT"MMMDIE STEUERUNG ERFOLGT" 
PRINT'"MIT DEM JOTSTICK." 
PRINT" man SURULKE °F" 
GETA#: IFRS$<>"P"THENBOD 

RETURH 
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Auftrag für Gelegenheitsanzeigen in Homecomputer 









An Homecomputer Parmaund Aurosee 
Westring 59c 
Postfach 620 — 0 Abo.Nr 
3440 Eschwege 
Unterschrift Ich zahle sofort nach Rechnungserhalt. Datum 
Unter der Rubrik „Kleinanzei- 
gen“ veröffentlichen wir Ge- Ich wünsche folgenden Text zu veröffentlichen 
en BEIERIEERENZEREEZEREEENEEERERENEN 
Kauf- und [| 





kaufsangebote, 
Tauschgesuche, Kontaktauf- III III III II ATS I ST I 
nn SELF EREEREENENEREUDEHEREREEEEENE 
tausch usw. 1} 
a hd IA ER I I I 
Preise für „Kleinanzeigen“: 
Private Gelegenheitsanzige [I III II I I JS I SS ASS SS I I I 
ee Re I BR Er a En En ER ER ER ER 
MwSt. Chiffregebühr je Anzel- 
ge 10,- DM. ee eh 
Gewerbliche Gelegenheitsan- [III I I I I I I I II II I I I IL I I LI LI | 
zeigejeDruckzelle7,—DMink. | | | | | | | | J I II III II III III TI III I I I I] 
MwSt. (dürfen nicht unter Chif- | 
fre erscheinen). I IT 

















Biete an Software 





2 0 a8 2 a RERE T 


: Achtung! 2 
r Spectrum! TI 99/4A 
r Kostenlos {1 P 


* senden wir Euch unser Clubmagazin * 
* mit vielen Tips und Tricks, Testberichten * 
* und Listings! Softwarebibllothek mit 
* v. Programmen vorhanden! (Rückporto!) 
* Achtung! Tauschpartner gesuchti 

" Für 5,- DM-Schein erhaltet Ihr eine tolle * 
* Kassette mit 10 Splizenprogrammen " 
* und unser Magazini Schreibt heute * 
* noch an! I. Scheitza, Wilhelmstr. 46 * 
* 4590 Herne 2| Tauschkatalog wird * 
= automaliscb mitgeschict! | * 


“— es a RR RB TREE 





®@ TI90/4A  ® Super-3D-Spiele 
Völlig neue Action-Games! Grafik - 
Sound! Dateil Ab 1,- DM/Info 1,- DM 


C. Wurzer, Grüntenweg 14, 85 Nürnberg 





C-54 Software für 

Partienarchiv 

usw. Info für -80 Pig. Rückporlo 

Volker Stürcken,Zedeliusstraße 20 
2940 Wilhelmshaven 





Commodore-CBM-64: Alle in BRD ver- 
fügbaren Pr. lieferbar incl. Anleitung 
soweit erforderlich. Topangebote mil 
Topservice, super! Telefon: 0281/62205 
oder 64613, Liste vorhanden. 
Tr ee ne 
TI-98/4A: Bior., Bruchreohnen, Bundes- 
liga, Spiele und diverse Programme 
preiswert. Info gegen Rückumschlag 
B. Knedel, Tulpengasse 16, 3171 Wey- 
hausen, Telefon: 05362/71187 


————————— 


meine gesamte 


VC-20 Verkaufe 
Software für 150,- DM Wert 10.000,- DM 
15 Disketten oder auf Kassette 
Telefon: 0208/840811 ab 19 Uhr 
er er 
© Datencassetien Software VC-20 © 
Broschüre 1/84 anfordern 2- DM im 
Brief (werden angerechnet) von 
© PS Gerhersiraße 20, 5220 Waldbröl © 





CBM-64 CBM-54 CBM-64 CBM-64 CBM-64 
Software für Anwendung und Spiel 
preiswert abzugeben. Liste von 
S. Donnerberg, Niebuhrstraße 36 

5300 Bonn 1 





“= y6-84 * * Über 300 Programme aus 
allen Bereichen für 100,- DM. Anruf lohnt 

Telefon: 030/612 13 12 
m pi Se screen 
..u.uu...........©. 
© WC 20 SPITZEN-Software VC 20 © 
@ AROM-Spiele * Action-Spiele “ 
© * Utilities * User-Programme * ® 
© Ca. 150Programme enorm günslig) © 
© bes vortell. PAKET-Best ® 
© Texı + 40-Z-Bildschirm integriert @ 
© Liste antord. 1,30 DM Briefmarken ® 
© UTN-Soft, Krabler 24, 43 Essen 12 “ 
..u.u.u..u......... 





Schachspieler: 
Eröffnungstraining 


a —,———————————— 


TI 80/10K Bioryihmus DM 20/Cassetle 
in Ti Basic Gesch. D. Funk, Alpenblickstr. | 
7890 WT-Tiengen 2 


a ———————— 


vc-64 Software Telefon:0911/528305 
u 
CBM-64-Software; auch Tausch, nur 
Diskette, Info gegen Freiumschlag 
| Binder. Behrensstr. 16, 5030 Hürth 
a en 


Kostenloses Info über Specirum- 
Programme bei Friedrich Neuper, 
\euchtenbergstraße 1, 8473 Pireimd 
I 
TOP-Spiele aus England 
Spectrum 16K: Z B. Jet Pac, Jumping 
Jack, PSSST, Tranz Am, Arcadia, Ah 
Diddum, Molar Maul je 28,- DM 
vC-20: Frog 18,- DM, Galaxzion 24,- DM 
Allen Attack Arcadia, Crazy Kong 
Wacky Waiters je 28,- DM 
CBM 64: Z. B. Crazy Kong, Token o! 
Ghall, Siren City je 35,- DM 
Bei Vorauskasse 2,- DM, bei Nachnahme 
4- DM zusätzlich für P + Info 
gegen Freiumschlag. 
MCS Micro Computer Service 
Pidder-Lüng-Weg 5, 2 Hamburg 73 





® @ ® TI-90/4A Software ®© © © Inlo 
gratis bei Jürgen Richter, Gebr - 
Grimmstraße 9, 6483 Bad Soden @ @ ® 





CBM 64 vc 20 
Supersoftware aus allen 
Bereichen, Spiele, Anwender 
usw. Nur beste und neueste 
Programme. Kleine Unkosten/Tausch 
Info 2,- DM. C. Jakubowskl 


4300 Essen, Termerhöfe 37 





Neu: Katalog 3/83 (über 50 Seiten) 
Neu: Light-Pen für VC 20 

Neu: Echte 3 D-Spiele mit Stereo- 
brille für VE 20, CBM 64 und Spectrum, 
Neu: Noch mehr Hard- und Software 
sowie Bücher für Spectrum, ZX 81, VC 20 
CBM 64, Dragen und Jetzt auch ®rle-1, 
Katalog gegen 1,80 DM in Briefmarken 
Th. Wagner Softwareversand, Postfach 
112243, D-8900 Augsburg 

re Br EEE 
@ CBM 641 Frogger, Pacman, Kong, 
Simons-Basic und vieles mehr! Info 
gegen Rückporto bei B. Töffke, 
Lindenstr. 23, 6084 Gernsheim 
ee ss; 
© © 16-84 - Spiele: Poker/Star Trek 
Kamel je 15- DM. Eliza/Vokabel 
Lernpr. je 20,- DM. Grafik MS 25,-DM A 
Scholz, Schubertstr. 60, 6300 Gießen 





© CM 64 © Software © CBM 64 © 
USA-Topsoftware z. B. Zaxxon, Hobbit! 
Über 100 Spielel Info bei Kreuzer 
Leutholdstraße 6, 8000 München 83 





oo © © Zi-dpecirum © © © © 
Wegen Hobbyaufgabe verkaufe ich 
meine 80 Programme — Liste gegen 
Rückporto. Schreiben Sie an 
Reinhard Vierhauser, Postlagernd 
Für BRD - 8228 Freilassing 
Für Österreich - 5020 Salzburg 
ET a Ben ae a 
Commodore 84 
Neul Spitzensoftware zu unglaub- 
lichen Preisen Anwenderprogramme 
Spiele, Textverarbeilung Dateien 
Ihre Listings werden wunschgemäß 
eingegeben und lauffähig gelie- 
tert! Schnellste Bearbeitung 
Info gegen Rückporto 














EEE nn nn 
Commoders 84: Gebe gute Soltware 
ab. Nur für CBM 64, nicht für VC-20 
Supersoftware jeder Art Schladitz 
Pillnitzer Weg 33 A, 1000 Berlin 20 


Fiss tete Höshehet AREBSPRSEBABFRIERREN BE U‚ [nn 
. © © Commidın 14 ® ® “ 
@ Spitzensoftware Topspiele ® 
” Info gegen 80 Pig ° 
“ H. Sterdt. Catharinenstr. 6 “ 
ee © ®@ 2200 Elmshon @ @ ® « 
een 


TI B0/4A Software Service 
Superprogramme Aus aller Welt 
Programmkassette Tel 05132/54314 


An der Weide 21, 3160 Lehrte 
WIN. Ba Rue Rn 
© © © An alle VC-20 Besitzer © © [2 
Wollen Sie Ihre Programmsammlung 
erweitern? Dann sofort Info (1,-DM 
ın Briefmarken) anfordern beı 
Horst Nierendorf, Bornebreite 13 

3413 Moringen 2 

a gen 
TI-98/4A _Super-Spiel-Software “ 
Infos nur gegen Freiumschlag be 

Michael Silberberg, Berlinerstr. 10 

5657 Haan 1, Schreibe auch Progs 
ee ee 
© VC-20 Entscheidungshillfeprogramm ® 
{mind. 3K Erweit) auf Kassette 25,- DM 
Entscheidet zwischen bis zu 9 (!) Objekten 

Udo Schlag, Thomas-Mannstr. 25 

3554 Gladenbach-Wdh. 

ee en ehren nn u 
CDM-64-USER: Wir haben alle ver- 
fügbaren Prog.(Games u. Anw.) zu wirkl 
Tiefpreisen: Tel.: 0281/64613 oder 62205 
Liste vorhanden 
er ee 
ZX-81-Superprog. Z. Tiefstpreis-ZX-81 
Mazogs, Pacman nur 10,- DM, Hires-In 
vaders 12,- DM, HRG 17,- DM.Gr. Info bei 
Engstler, Dinghoferstr. 10, A, 4020 Linz 
Then Nigr are ar 


..u.u...u.........©. 
© VC-20 © SUPERANGEBOT © VC-20 © 
© 140 Progr. (ca 50 ROM-Progr.) ® 
® nur 120,- DM. Infos gratisi  ® 
® Joerg Vollmann, Postfach 1249 ® 
@ 2448 Burg/F. Es lohnt sich ® 
...u............€ 





CBM 64 © Atari Top Software 
Super Preise ab 2,- DM. Auch erstellen 
von Programmen. Into Freiumschlag 
P. Wippich, Mautweg 8, 5603 Wülfrath 





© © © VC-20/64 Suporspiele © © © 
© © © Tausch und Verkauf © © © 
Spiele ab -50 DM! Liste gegen 
50 Pfg Rückporto bei Thora-Soft 
Danzigerweg 4, D-7430 Metzingen 


vo © vC20 © Vc20 @ 16-20 
Alle hergeschaut @ Super günstig ® 
Trüber Sonntag, Langeweile, mit LEO- 
Soft vergeht die Zeit mit Eile 
Dufte Programme ® Fasi ales ® 
Info m. Rückporto, K Leonhardt, 
Grönnlingerstr. 1-3, 7090 Eltwangen 








CBM-4, 25 Super-Programme auf Disk 
für nur 50- DM (Schein/Scheckl) 
R. Deuerling, Bogensti. 7, 24 Lübeck 


T100/44 Das Topangebet: TIaB/aa 
8 (N) Super Ext Basic Spiele und zwei 
(inchusev 





Alle Spiele mit Bombenaclion und 
Topsoundi Billiger gehts michui® 
Schein an J Schubert, Londensiı. 9 
34 Götlingen (Supennio gg 80 Pig) 









= 


2101 SUPERPROGRAMME 
Über 80 Spieler Minen (Bidaumk 
sung wie beim Spectrum) imwader 
Head-On MC Vlies u a umer 
0- DM, Info gegen Freiumschiag 
Schilling, Feldstraße 5. 2723 Scheebe 
nn nn nn 
eo 1044 © 5-Spieleprogramme auf 
Disk 60,- DM + Nachn. b, M. Vertkamg 
Irftstraße 112. 4050 Mönchengladbach 2 
IE nn 
Tieom Top Splel/Anwenderprogramms 
ınd eine ganze Menge mehr für dem 
TI m0/4A Super Presse Katalog 
Bei A. Toonen, Buchenweg 7 
4178 Kevelaer 5. Mit Anzeige 1 Programm 
Gratis Ticom TI 99/4A Software 
EEE 
Verkauf und Tausch WE-28/84 Prog 
Über 500 Programme. Info B0 Pig 
A. Wagner, Am Hang 26, 2313 Raisser! 
en 
TI-98/4A-Basıc + Ertendel-Software 
Alexander Hansmann Krousweg 7 
7515 Linkenheim, Telefon: 07247/7446 


zus 


EEE 


vc-20 Seftware Ich verkaule meme 
gesamte Software (ca 400 Programme 
für 50,- DM. Telefon: 030/8522499 

en 
Super Software für TI BsB/auı zZ 8 
Das Kamel in der Wise 4- DM 
4- Du 


Ripshorsterstraße 309, 4300 Essen 11 


EEE 


‘ COMPUTER-CASSETTEN ® 


10er Pack mil C 10 15,- DM 
BASF-LH-Band, C 20 16- DM 
incl Boxen ca 17- DM 
und Etiketten 4 18,- DM 
Ab 25 Stück moch günsüger 
BASF-Chom und AGFA superde 
In allen Längen iseferbar 


& CASSETTEN-AUFKLEBER ® 

100 ARollen-Etiketten nur 3,90 DM 

120 St aut A4-Druckbögen 7- DM 
Chnıstomenia-Cassertenstuco 
Gartenstraße 11, 3584 Zwesien 
05626/281 Vers. p. Rechnung 





T 00/4A Ext: Absolut Neu 
4 in einer Reihe 24,— DM 
Weiter im Programm: Wurnpus 19,— DM 
Flugsimulator 24,— DM uva 


Q-Computing A. Quadri, Ircheistraße 10 
CH-8057 Zürich, Schweiz 
in 
oe © spEcsor - ERS © © © 
BASIC® 


@EDIT ELSE GET. KEYWORDS. PROC. ® 
@DEF PROCEND PROC. WHILE Unni® 
@EXIT IFON ERRORRENUM. ROLL ® 
®SCROLL SCORT. TRACE, USING ® 
@Viee neue Funkiionen wie DEC® 
@zu HEX Ireier Speicher um. ® 
@Für SPECTRUM 18/48K 56— DM® 
@inio über Gesamtprogramm \.-DM® 
@Best Vork a Nachnahme bei Kiug® 
©4000 Düssekori MW ineben \8® 
“ Teislon 0211485 . 





Specirum, 19K-Tiermne-Un m 
lext-Aların 0-30 Min. Wecker. Kalenası 
Song, 1/10Melses. Stoppuh, 4 Rechner+ 
nio gegen FreiumschlagKkass N 
Nachnahme © Scheck Ledins 
Rontgenstr 19. 8202 Abang 












.e ® Commodır 64 @ 


— 


.. 
Große Auswahl an Nutzprogrammen (z.B 
Assembler, Pilot, Basicerweiterung usw ) 


und Spielprogr. (z.B Frogger. Pac Man 
Kong usw.) zu  Niedrigstpreisen 
abzugeben! Auch Tausch. Liste gralis! 
M. Fischer, Kohlweg 19, 6101 Messel 
Telefon: 06159/1247 
m 
Verkaufe Software für 6-20, Liste gg. 1,80 
DM in Briefmarken oder 20.- im Brief 
für eine Kassette mit 10 Spielen 
M. Haase, Butterborn 69, 3200 Hildesheim 


a en 


Biete an Hardware 


m 
® ® RECORDERINTERFACE ® @ für 
Y620/VC64/ alle CBM. Jeder Recorder 
oder Tonbandg. als Datenspeicher. 
Fertiggerät im Geh. mit Steckern 
39,- DM, Fa BOl/Hoye 1, 2225 Schaf- 
stedt, Telefon: 04805/380. Nachnahmev. 


Taschencomputer PC-1500, Plotter, 
8K-Erweit. Rec. für 800.- DM, R. Grimmert 
Telefon: 02591/21943 
 Z MEREERBEGE 
© COMACON COMPUTER MARKET @ 
An und Verkauf von gebrauchten 
Klein-Gomputern, Telefon: 01/462'19'57 
CH-8003 Zürich, Do-Abend und Samstag 
Meinrad-Lienert-Straße 15 
Te 
VE 20 +Reoorderinterface + 3 Bücher 
+ Software, 500,-, Telef: 05731/82730 
te 
VC 20 385,- DM, 6-64 669,- DM sowie 
Zubehör verk, Fa Scarvacl Hard- 
Software Vers. Telefon 0228/443800 
Tr Da Te 
© ZX Spectrum:Erw.A.48K,89 DM,A.80K © 
@ 198DM Joystick+programmierbares@ 
© Joystick-Interface (für alle Pro-)® 
©®gramme) Auf Anfrage! Computer+@ 
© Medientech ‚H.Meyer,Rahserstr.58 @ 
©4060 Viersen 1,Tel: 02162/22964 @ 
@®Preise + Porto und Nachnahme ® 
Te a 
ZX-81+16K+Bücher+Pac Man, Frogger 
Scramble va. 230,- DM, Tel. 07191/60518 


Tausche C-#4, 6 Monate Alt + viel 
Software + Datasette gegen Casio 
=P-200. Telefon: 0644171843, ab 18 Uhr 


Spectrum 4 Monate alt 400 DM+Software 
+ausführliche Literatur, Chiffre HC184 


TI 00/4A + Ext. Basic + Recorder mit 
Kabel + Joysticks + 6 x Ti-Magazin + 
Software, VB 700 DM, Tel: 0711/7157121 


ZX 81+32K+HRG+Bücher+Netz+Anl, 

300- DM. Wegen Systemwechsel, 

noch kein Jahr alt. Ab 17 Uhr 
Telefon: 02135/62527 


TI 08/44 + Ext/Basic + Recorder 

















+ Finanzberater + Joysticks 
750,- DMI!! Telefon: 089/801235 


berkaute TI 08/48 ae + 20 
sict, sowie Topspiele 
Beeren u a WP 660,- DM 
Telefon‘ 06172/38592 nur Nac 








Selbstbau-Pletter-Interface mil 
Lentronics-Schnittstelle Infomation 
L Habersetzer Thalackerstraße 8 
8123 Peißenberg, Telefon 0881/61922 
















ZX 81 + ı6K +Software 200- DM 
Telefon: 06144/31580 





Sharp MZ-80 A (48 K Byte), Floppy- 
Controller Expantionbox, 2 Laufwerke 
(5.25”, je 280 K Byte) 
org. Disk-Basic, diverse Spiele z B 
Sargon Il, DeFender Preise VB 
Telefon: 0611/893245, Sa/So 
























Supergünstiges für Ihren TI 99/44 
Ext Basic+Deut. Handbuch + Joystick 
+ Wumpus-Jagd + 10 Spiele in Ex @ 
nur 290,- DM, NP 570, Tele :04671/4 168 
Be II TR 








HP 4IC 3 Memory Kartenleser +Drucker 
VH 1.500,- DM Telefon: 06121543131 
er er re 










..o © ZX-spchume oo ® 
® uJoystick-Stick mit Interface ® 
© Kempstom-Kompatibel 6 
® Für Direktanschluß 16 + 48K ®@ 
® Preis 59,90 DM plus Versand @ 
® Volker Grimmke, 2240 Heide ® 
® Johann-Hinrich-Fehrsstraße 64 ®@ 










Verkaufe VC-20 + 8K Speichererweite- 
rung + Bücher 500,-DM, U. Rosenberger 
Haldenstraße 11, 7335 Salach 
Telefon: 07162/7184 ab 18 Uhr 
a 
ZX-81+16K-+Cass.+Bücher+Rec.für | 
26 900S. E Glaeser,8952 Irdning 105,Ö! 
Te ee er 


LOCH DEN H4e 
VC 20 3-fach Moduladapter 85- DM 
VC-20 Recorderinterface 55,- DM 
VC-20 8K RAM Erweiterung 115- DM 
VC-20 Super Tool Modul 119,- DM 
Schnell-Save + Programmier-Modul 
mit 25 neuen Basicbefehlen und 
10 x schnell. Kassette. Floppyzeit 
VC-64 Epromkarte 55,- DM 
VC-64 3-fach Moduladapter mit Schalt. 
VC-64/64 Schalten, Steuern, 
mit PIO-IN/Out-Modul 

VC-20/64 Netzinterface 
VC-20/64 Mithörverstärker 19,- 
VC-20/64 Dauerfeuer Joystickmodul 
VC-20 40/80 Zeichen, 64K RAM Erweit. 
Datenkassetien C 60 Stück 1,20 DM 
Stecker, Joystick Paddie, Bausätze 
Spiele + Programme ab 3,- DM 
Hard/Software Info für 1,20 DM 
MÜKRA, Rotdornweg 15, 1 Berlin 45 


ZX481, 16K Memopak, Zusatztastatur, 

5 Monate, dt. Anleitung, Bücher, für 

190,- DM; Jo. Schraub, 5440 Neuwied, 
Telefon: 02631/58136 

























































ECKL elscirenic, Erlenmeyersiraße 3 
D-6204 Taunusstein 4, Tel. 06128/84734 
..uus.u........u.u... 













®Tı 00/4AA 6 Monate alt nur 199- DM 
® Disk -Laufwerk + Controller 899 DM 
® Ex-Basic-Modul, Joysticks Soft 
® Ware-Module. Recorder Kabel usw 
© 
* 


Weit unter Neupreis ® H Mencher 
Hauptstraße 35, 5509 Walkdweller @ 


VE-20 (3 Monate Garantie) + 27 K HAM + 
2 Steckmodule (alles neuwertig!) 
+ Software + Lit. VB 480.- DM 
Telefon: 07641/48862 


zx 81 Katalog 1,—- DM 
16K RAM 85,- DM 
64K RAM 185,— DM 
IK Schach 15,- DM 
ZX Spectrum Katalog 3,— DM 
32K RAM 99,- DM 
Centronics-Interface 120,— DM 
Forth 60,—- DM 


BIMA-Elektronik, Heisterweg 6 
2382 Kropp, Telelorı 04624/8728 
ee nn 


Suche Software 


tg > 
Für TI 99/44 "Steckmodul Extended 
Basic” + Handbuch Tel.07141/63786 
nn 
Für VE 64 Joystick günstig + Programm 
auf Kassette: Gute Haushaltsrechnung + 
gute Spiele, Telefon: 07141/51406, 19 Uhr 
re a Er > Ta re 
Suche NC-64-Software, Hellemann, 
Wülferoder Straße 92, 3014 Laatzen 
rn rer de 
VC-54 Verkaufe meine gesamte Soft- 
ware für 150,- DM, Wert 5.000.- DM 
15 Disketten oder auf Kassette 
Telefon: 0208/8408111, ab 19 Uhr 
a En I 
Suche Simons-Basic-Anleitungen 
gerne kopiert, 6-64, Telefon: 08151/15803 
Te AT Tue ie 


Suche Hardware 


gen 
Für TIO9/4A "Steckmodul Extended 
Basic” + Handbuch, Tel: 07141/63786 
ne 
Für V6-64 Joystick günstig + Programme 
auf Kassette: Gute Haushaltsrechnung + 
gute Spiele, Telefon: 07141/51406, 19 Uhr 
I 
Datasette für W6-20, Tel: 0591/47672 
a 
Suche dringend Ext.-Basic für den TI-08 
Telefon: 06121/373300 
Parkstraße 24, 62 Wiesbaden. ab 17 Uhr 
a 7 


Tausch 





Tausche WC-84 Software. Liste für 
1,-- DM von Stefan Burtsche, Fröbeiweg 41, 
2000 Norderstedt Teia: 040/5221360 























” ” “ * ” ” * “ 


Achtung! Spitzei! 
Spuctrum! TI W/4al 


* 

“ 

” 

® Wr suchen lür unseren Tauschr ik 
” 

. 


Ständw Programme, Tips. Kıfla und 


singe ec aus allen 


“ “ * ”* . = “ . “ % 


* (Kostenlos!) Achtung! Schuckt uns Eure ® 
* Programme, Tauschlisten. ideen. Tiıos *® 
” zu) Ih erhaltet gestwendeni amer * 
* Clubmagazin. sowie eine Kauzetia. voll * 
* mil nützlichen, von uns geschriebenen * 
* Programmen aller Art! (Versand ner * 
” halb von 3 Tagen! (Kein Ciuibelürag] ) * 
* Schreibt heute noch ar | Scheitza ® 
” Wiähelmstraße 46, 4690 Heme 2° * 
* (Rückporto) Tauschkataing wird asia * 
a matisch mitgeschickn e 
” ” ” * ” “ ” “ 





® © Tausch IC 4 Seltmın © © 
Suche Fioppy 1541 oder CBM 4040 
Inio -BO Pig ® ® Christian Wähler 
Moritzstraße 70 «N Essen | 


VC-64-Software Tausch: Liste gegen 
Freiumschiag an Ralf Morgenroth 
Höllental 10, 8720 Schwennturt 


Tausche DI-Spectne-ragrammı 

Lste bite an Frank Hiäkhmann 

4410 Warendorf 2, Everwordstrae & 
oder Telefon. 02581/45056 


C-64 tolle Programme Tausch 

oder gegen Selbsikosten 3. Isert 

Bürgerwehrstraße 30, 7800 Freiburg 
Telefon. 0761/28063 














Versandhander 
Der Joystick 55,- DM - Disk ab 4 90 DM 
Ihr Computerpartner Doffine + Fischer 
Postlach 1415, 4790 Paderbom 
FE De 
Basic-Kurs VC 20 
Kompakt-Kurs | + | Teil mit Kassere 
zu verkaufen. iInlormalion Rail Freuag 
Postiach 842. 4620 Cas-Rauns 
Telefon 02305/84761 oder gegen 
80 Pfennag Ruckparte 


im 
17 Ad 4018 Langen 
en a Fe tere. ne 







NEUER KATALOO 
Rn ERHÄLTLICH (SCHUTZOEBÜHR 3,-0M) 


au ANFAN® DEZEMBE 





cAasS e 
Design and save beautliul 
spri\es. and 


achities and 
documentation 
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Herleshausen 





WACHTSBESTELLUMG 


VERGESSEN SIE WIEHT, ImMnE WEIH 


eHTZEITIO AM UNS ABZUSENDEN! 
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22 @ 3443 Herleshausen 


WICOSOFT ® Christian Widuch @ Nordstr. 








Jumpin Jack 






Pi .; en ab, Y 
für den VC-20 o. Erw. Zu b. Vorsicht yor Enrake- 
Das beliebte Froschspiel in perfekter WILL vous ern . Ei Jeder könnte Dein) tzer gen en, 
Aufmachung. Ein Spiel - nicht nur für SUPREME WORLE N, g 
Grüne. CHAMPION? 

DM 45.50 DM 39 50 

Adventure-Spiel f. VC-20 

(Speichererweilterung mind. 16K) 

Skramble 


ein Superspiel 





Der Bestseller 


Abenteuerspiel in deutscher Sprache. 
Finden Sie die verborgene Pyramide in der Wüste. 


DM 19.50 


MULTISOUND SYNTHESIZER 


für den VC-20 o.Erw. 
Synthesizer für alle Computermu- 
Side Extrem flexibel. Alle denk- 


en Musik- und Spezialeffekte. 
ne kombinierende Grundkomponen- 





Neuer Katalog ab Anfang Dezember erh 





WICOSOFT * Nordstraße 22” 3443 He 


Bitt 


benutzen Si: Bestellkarte 








für den VC-20 o. Erw. 


Eine der besten Scramble-Versionen 
auf dem Markt. Superschnell. Tolle Gra- 
fik. Guter Sound. Joystick oder Tasten- 


bedienung,. 
DM 39.50 


MOONS OF JUPITER für den 
VC-20 m.Erw. (3 8 0. I6K) 
Du bist Commander einer alakti 

| akt 
Flotte. Während die Flotte das wenns 
schiff begleitet, sucht ein Raumschiff 
die Passage zwischen den Jupitermon- 
den, Riskante Ausweichmanöver Sind 


nötig. Achte auf die Ufo der | 
wollen Dich vernichten. — 


SHARK ATTACK 
für den VC-20 o.Erw. 


Du schwimmst in dem von Haifi 
wimmelnden Meer, nachdem Sera 
dem Piratenschiff entkommen bist 


ten vorhanden: Musik, Rhythmus, prO- Er a em 

grammierbare Musik und Toneffekte. 4 ches Du hinter Dir herziehst rt 
Eines der stärksten Programme von x Hi Bu die Haie fangen kannst. 

DM 39.50 ey un LE glerig auf Dich, Die Haie lauern 

er DM 39.50 


ältlich (Schutzgebühr 3,-DM) 





rleshausen * Tel. 056 54-6182 
AT nleil des Er ITS 




















VERGESSEN SIE NICHT, IHRE WEIHNACHTSBES 


RECHTZEITIG AN UNS ABZUSENDEN! 


en 
WEG 





TELLUNG 





The Hobbit für den ZX Spectrum 48K 
Das neue Superadventure. Herrliche Grafik. Großer Befehlssatz. 
Ein Meilenstein der Microcomputersoftware. Dazu das Hobbit- 


Taschenbuch (in englischer Sprache). 


DM 78.- 


JEDE MENGE NEUE SPIELE 





für Spectrum 48: 


Adventurer’s Nightmare (Abenteurers Alptraum) 
Freie Tastenwahl. Deutsche Spielanleitung im Programm. Fünf 
Nächte müssen in der Spukhöhle verbracht werden. Es gilt, Gold 
und Leben vor Gespenstern, Vampiren, Energiespindeln, Skeletten 
und Mörderspinnen zu verteidigen. Sehr schnell! 

M 32.00 


Schatzsuche im Irrgarten 

Maschinensprache. Deutsche Spielanleitung im Programm. Fin- 
den Sie in der obersten Reihe den Geheimmechanismus, damit die 
Urne sichtbar wird! Die ersten Urnen sind problemlos zu finden, 
aber dann ... Zeit, fallende Steine und Monster sind gegen Sie! 


DM 32.00 


Flipper 
Deutsche Anleitung im Programm. Freie Tastenwahl. Flippern wie 
in der Kneipe um die Ecke! Drei Geschwindigkeiten. Bis zu vier 
Spieler spielen je drei Bälle! Sehr schnell! 

DM 32.00 


Spectrum 16k: 


Teufels-Fahrer 

Deutsche Anleitung im Programm. Weichen Sie dem entgegen- 
kommenden aus, indem Sie rechtzeitig die Spur wech- 
sein. Rasend schnell! 10 verschiedene Geschwindigkeiten. 


DM 32.00 














Tarzan für den 2X Spectrum 16 & 48K 


Ein Geschicklichkeitsspiel, Tarza 
er von Krokodilen und Affen beh 
Tolle Grafik, unterhaltsam. Ohne 


n muß Jane befreien. Dabei wird 
indert Happy-End am Schiuß? 
Joystick gut spielbar 


DM 25.- 


den erweiterten 
Spectrum besitzt, sollte auf dieses Spi®' 


nicht verzichten 
DM 37.- 


Colour Clash 


In dia game au 1a un u an 


Smzmsz2em für Spectrum 16/48 K 


füllen Sie die Felder mit dem magı- 
schen Pinsel aus und lassen Sie sich 
nicht von den bösen Geistern erw- 
schen. 100% Masch.code, sehr unter- 
haltsam. 


DM 35.00 


HÄNDLERANFRAGEN ERWÜNSCHT 


WICOSOFT * Nordstraße ? 


13 


); % 
2” 3443 Herleshausen * 7 


SOFTWARE-AUTOREN GESUCHT, INFO ANFORDERN 


SBRTRF EST) 
Hell 


